VB.net 单实例运行

   
Imports System.Diagnostics

 Private Sub MenuForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If (UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName))) > 0 Then
            MsgBox("The Program has been executed")
            End
        End If
End Sub