如何让程序只开启一个例程(コンソール アプリケーション,mutex)

Imports System
'Imports System.Threading
Module Module1

    Sub Main()
        Dim mutex As System.Threading.Mutex = New Threading.Mutex(False, "this should only run once")
        Dim run As Boolean = True
        run = mutex.WaitOne(0, False)

        If run = False Then
            MsgBox("System is Running,Can't Run It Again")
            Exit Sub
        End If

        Console.WriteLine("これは一つの簡単な例です。")
        'Console.ReadLine()
        MsgBox("System is Running")
        'Thread.Sleep(5000)
    End Sub

End Module 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

他の方法：
        Dim _isProcessRunning As Int32
        _isProcessRunning = System.Diagnostics.Process.GetProcessesByName( _
         System.Diagnostics.Process.GetCurrentProcess().ProcessName).Length

        If _isProcessRunning <> 1 Then
            MsgBox("System is Runing,Can't Run It Again")
            Exit Sub
        End If