１．GetProcessesByName メソッドを使用してアプリケーションの２重起動を防止

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
    'Process.ProcessName プロパティ(プロセスの名前を取得します)
    Dim pn As String = Process.GetCurrentProcess.ProcessName
    'Process.GetProcessesByName メソッド
    '指定したプロセス名を共有するリモートコンピューター上の
    'すべてのプロセスリソースに関連付けます。
    If Process.GetProcessesByName(pn).GetUpperBound(0) > 0 Then
        MessageBox.Show("同じアプリがすでに起動しています")
        Me.Close()
    End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
    'テスト起動
    System.Diagnostics.Process.Start("051.exe")
End Sub