Как показать окно уже запущенного приложения при его повторном запуске? - VB

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

Я использую такой код, но он не отрабатывает, проверял какой hwnd возвращает FindWindow - 0, соответственно ничего не отрабатывает. Подскажите где может быть ошибка.

Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib 'user32' (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Sub Main()
    'check for previouse instance
    'if already run then show it
    If App.PrevInstance Then
        ShowWindow FindWindow(0&, 'MyProgramTitle'), 9 ' SW_SHOW
        Exit Sub
    End If
    
    Load frmMain
End Sub

Решение задачи: «Как показать окно уже запущенного приложения при его повторном запуске?»

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

                            If App.PrevInstance = True Then
    MsgBox 'Программа уже запущена!', vbInformation, 'Info'
    mem = App.title
    App.title = ''   ' <<< чтобы не было двух окон с одним заголовком
    AppActivate mem  ' <<< активируем окно запущенной копии
    Exit Sub         ' <<< завершаем работу этой копии программы
End If
                        