VB.NET只允许打开一个实例

If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then End

原文地址:https://www.cnblogs.com/ilookbo/p/4065379.html