Как из программы управлять другой, уже запущенной программой

If CBool(hBtn) Then
   Shell "C:\Users\Alexsandr\Desktop\EventHook\prjEventHook123.exe", vbNormalFocus
   SendMessage hBtn, WM_LBUTTONDOWN, 1, ByVal 0
   SendMessage hBtn, WM_LBUTTONUP, 0, ByVal 0
   Unload frmEventHook
End If

Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExW" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN    As Long = &H201
Private Const WM_LBUTTONUP      As Long = &H202
 
Private Sub Timer1_Timer()
    
    Dim hwnd    As Long
    Dim hEdit   As Long
    Dim hBtn    As Long
    Dim hPanel  As Long
    
    hwnd = FindWindow(vbNullString, "Предупреждение системы безопасности Windows")
    If hwnd Then
        hBtn = FindWindowEx(hwnd, 0, StrPtr("Button"), StrPtr("&Нет"))
            If CBool(hBtn) Then
                       SendMessage hBtn, WM_LBUTTONDOWN, 1, ByVal 0
                       SendMessage hBtn, WM_LBUTTONUP, 0, ByVal 0
            End If
    End If
End Sub