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

Public Class CheckOneInstance
	Shared mutex As Mutex

	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 False = createdNew Then
			If False = activateFirstInstance Then Return True

			''получаем имя нашего процесса (название файла без расширения '.exe') 
			Dim processName As String = currentProcess.MainModule.ModuleName
			processName = processName.Substring( 0 , processName.IndexOf( ".exe" ))
			''перебираем все процессы с искомым именем 
			For Each process As Process In process.GetProcessesByName(processName)
				''текущий экземпляр нас не интересует 
				If process.Id <> currentProcess.Id Then
					''могут быть разные приложения с одинаковым именем 
					''исполняемого файла. Проверяем что-бы это был 'наш' файл 
					If process.MainModule.FileName = currentProcess.MainModule.FileName Then
						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 ''Окно так и неудалось найти, выходим.
						Else
							hWnd = process.MainWindowHandle
							''Активизируем окно приложения 
							If True = IsIconic(hWnd) Then
								ShowWindow(hWnd, SW_RESTORE)
							Else
								SetForegroundWindow(hWnd)
								Exit For
							End If
						End If
					End If
				End If
			Next

			Return True
		End If

		Return False
	End Function

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

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

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

	Const SW_RESTORE As Int32 =  9 
End Class

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

	''Создавать экземпляры этого класса нет смысла
	Public Sub New()
		MyBase.New()
	End Sub
	Shared hWndFirstInstance As IntPtr

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

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

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

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

	<DllImport( "User32.dll" )> _
	Public Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef pdwProcessId As Int32) As Int32
	End Function
End Class

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 ''Окно так и неудалось найти, выходим.
Else
	hWnd = process.MainWindowHandle
	''Активизируем окно приложения 
	If True = IsIconic(hWnd) Then
		ShowWindow(hWnd, SW_RESTORE)
	Else
		SetForegroundWindow(hWnd)
		Exit For
	End If
End If

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 ''Окно так и неудалось найти, выходим.
Else
	hWnd = process.MainWindowHandle
End If

''Активизируем окно приложения 
If True = IsIconic(hWnd) Then
	ShowWindow(hWnd, SW_RESTORE)
Else
	SetForegroundWindow(hWnd)
End If

Exit For

Public Class myMainForm : Inherits System.Windows.Forms.Form
	Public Shared Sub Main()
		If True = CheckOneInstance.IsInstanceExist(True) Then Return

		Application.Run(New myMainForm)
	End Sub
''
''
''
End Class