防止程序多次打开

 

Imports System.Diagnostics 
If UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) _ 
> 0 Then Eixt Sub '()Sub 
'Process.GetCurrentProcess.ProcessName 获取当前运行程序的名称。