Imports System
Imports System.Threading
Imports System.Diagnostics
Imports System.Runtime.InteropServices


Public NotInheritable Class CheckOneInstance
    Private Shared mutex As Mutex

     'Создавать экземпляры этого класса нет смысла  
    Sub New()

    End Sub  'New 

    Public Shared Function IsInstanceExist(ByVal activateFirstInstance As Boolean) As Boolean
        Dim currentProcess As Process = Process.GetCurrentProcess()
        Dim createdNew As Boolean

         'Имя Mutex'a состоит из имени исполняемого файла + строковая константа 
        Dim mutexName As String = currentProcess.MainModule.ModuleName + " One Instance Mutex Name"
        mutex = New Mutex(False, mutexName, createdNew)

        If Not createdNew Then
            If Not activateFirstInstance Then
                Return True
            End If
             'получаем имя нашего процесса (название файла без расширения '.exe')  
            Dim processName As String = currentProcess.MainModule.ModuleName
            processName = processName.Substring( 0 , processName.IndexOf(".exe"))

             'перебираем все процессы с искомым именем  
            Dim process As Process
            For Each process In Process.GetProcessesByName(processName)
                 'текущий экземпляр нас не интересует  
                If process.Id = currentProcess.Id Then
                    GoTo ContinueForEach1
                End If
                 'могут быть разные приложения с одинаковым именем  
                 'исполняемого файла. Проверяем что-бы это был 'наш' файл  
                If process.MainModule.FileName <> currentProcess.MainModule.FileName Then
                    GoTo ContinueForEach1
                End If
                Dim hWnd As IntPtr
                If process.MainWindowHandle.Equals(IntPtr.Zero) Then
                     'По каким-то причинам(например у окна ShowInTaskBar = false) 
                     'MainWindowHandle равен 0. Попытаемся найти окно при помощи 
                     'Win32 API функций 
                    hWnd = FindWindowEngine.Find(process.Id)
                    If hWnd.Equals(IntPtr.Zero) Then
                        Exit For  'Окно так и неудалось найти, выходим. 
                    End If
                Else
                    hWnd = process.MainWindowHandle
                End If
                 'Активизируем окно приложения  
                If IsIconic(hWnd) Then
                    ShowWindow(hWnd, SW_RESTORE)
                Else
                    SetForegroundWindow(hWnd)
                End If
                Exit For
ContinueForEach1:
            Next process
            Return True
        End If
        Return False

    End Function  'IsInstanceExist 


    <DllImport("User32.dll")> _
    Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
    End Function


    <DllImport("User32.dll")> _
    Shared Function IsIconic(ByVal hWnd As IntPtr) As Boolean
    End Function


    <DllImport("User32.dll")> _
    Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function

    Private Const SW_RESTORE As Integer =  9 

End Class  'CheckOneInstance 

 'Этот класс предоставляет метод для поиска среди окон 'верхнего уровня' 
 'окна созданного указанным процессом 

NotInheritable Class FindWindowEngine

     'Создавать экземпляры этого класса нет смысла 
    Sub New()

    End Sub  'New 

    Private Shared hWndFirstInstance As IntPtr

    Public Shared Function Find(ByVal processID As Integer) As IntPtr
        Dim enumProc As New EnumWindowsProcDelegate(EnumWindowsProc)
         'Перебираем все окна 'верхнего' уровня 
        EnumWindows(enumProc, CType(processID, IntPtr))
        Return hWndFirstInstance

    End Function  'Find 

    Shared Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
        Dim processIDFinded As Integer
         'Получаем ID процесса, создавшего данный hWnd  
        GetWindowThreadProcessId(hWnd, processIDFinded)
        If processIDFinded = lParam.ToInt32() Then
             'Нашли искомый процесс 
             'сохраняем hWnd и прекращаем перебор окон 
            hWndFirstInstance = hWnd
            Return False
        End If
         'продолжаем перебор окон 
        Return True

    End Function  'EnumWindowsProc 

     'Делегат для функции EnumWindows 
    Delegate Function EnumWindowsProcDelegate(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

    <DllImport("User32.dll")> _
    Shared Function EnumWindows(ByVal lpEnumFunc As EnumWindowsProcDelegate, ByVal lParam As IntPtr) As Boolean

    End Function

    <DllImport("User32.dll")> _
    Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer

    End Function

End Class 'FindWindowEngine

        If CheckOneInstance.IsInstanceExist(True) Then
            Return
        End If