应用程序启动判断

Dim runMore As System.Threading.Mutex
Application.ProductName
runMore  = New System.Threading.Mutex(False, sAppName)
If runMore.WaitOne(0, False) = False Then
    Return False
Else
　　Return True
End If