Public Sub Main()
Dim creatdnew As Boolean
Dim inst As System.Threading.Mutex
inst = New System.Threading.Mutex(True, "WindowsApplication4", creatdnew)
If creatdnew Then
System.Windows.Forms.Application.Run(New Form1)
inst.ReleaseMutex()
Else
MessageBox.Show("本程序已经启动", "奇远")
Application.Exit()
End If
End Sub