２重起動禁止

↓パブリック変数で宣言
'２重起動禁止用
Dim hMutex As New System.Threading.Mutex(False, Application.ProductName)


↓フォームロード時
'２重起動防止
If hMutex.WaitOne(0, False) = True Then
GC.KeepAlive(hMutex)
Else
MessageBox.Show("２重起動できません", Me.Text)
Me.Close()
Exit Sub
End If

↓フォームクローズ時
hMutex.Close()