VB.NET程序只能启动一次

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