Запретить приложению запуститься повторно - VB

Формулировка задачи:

Доброе утро Вчера ночью, пока не иссяк мой трафик искал решение Как - же запретить одному и тому- же приложению запуститься повторно Казалось бы вопрос простой но именно на нём я и запнулся )) Хорошо конечно когда всё работает правильно,но уже совсем не то пальто.. когда можно запустить одновременно еще одно такое-же приложение с таким-же функционалом .. (ужос) Понимаю что нужно плыть в сторону открытых процессов по имени, но к сожалению нет столько времени искать как это сделать, тем-более все свои архивы растерял подскажите ..

Может ктото сталкивался, подскажите, не будьте жмотами, пусть вас на это вдохновит моя работа здесь моя и многих наших товарищей

Решение задачи: «Запретить приложению запуститься повторно»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function CreateEvent Lib "kernel32" Alias "CreateEventW" (lpEventAttributes As Any, ByVal bManualReset As Long, ByVal bInitialState As Long, ByVal lpName As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const ERROR_ALREADY_EXISTS As Long = 183&
 
Dim hEvent As Long
 
Private Sub Form_Load()
    hEvent = CreateEvent(ByVal 0&, False, 0, StrPtr(App.Title))
    If hEvent Then
        If Err.LastDllError = ERROR_ALREADY_EXISTS Then
            MsgBox "ГЏГ°ГЁГ«Г®Г¦ГҐГ*ГЁГҐ ГіГ¦ГҐ Г§Г*ГЇГіГ№ГҐГ*Г®"
        Else
            MsgBox "ГќГІГ® ГЇГҐГ°ГўГ»Г© ГЅГЄГ§ГҐГ¬ГЇГ«ГїГ°"
        End If
    Else
        ' ГЏГ°Г®ГЁГ§Г®ГёГ«Г* Г®ГёГЁГЎГЄГ*
        End
    End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    CloseHandle hEvent
End Sub
                        