Отправить нажатие Ctrl+F9 программе работающего в фоном режиме

Imports prog1
Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
 
Module Module1
<DllImport("user32.dll")> _
    Public Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As ntPtr
    End Function
 
    Public Const WM_KEYDOWN = &H100
    Public Const WM_KEYUP = &H101
    Public Const VK_CONTROL = &H11
    Public Const VK_F9 = &H78
 
    Dim app1 As prog1.Application
Sub Main()
        While True
        Dim mcommand As String = Console.ReadLine
 
        If mcommand = "Recalculate" Then
        app1 = New prog1.Application
        app1.Visible = False
 
        ' пытаюсь получить хендл так и приводит к ошибке
        ' handle = app1.Handle
        ' а так работает но к ошибке может привести если запущено несколько программ(но всем отправлять Ctrl + F9 не нужно)
         Dim p As Process() = Process.GetProcessesByName("prog1")
         Dim title As String = p(0).MainWindowTitle
         Dim handle As IntPtr = p(0).MainWindowHandle
 
       ' отправка нажатия Ctrl + F9 - не работает
       SendMessage(handle, WM_KEYDOWN, VK_CONTROL, 0)
       SendMessage(handle, WM_KEYDOWN, VK_F9, 0)
       SendMessage(handle, WM_KEYUP, VK_CONTROL, 0)
       SendMessage(handle, WM_KEYUP, VK_F9, 0)
       ' не работает и PostMessage
 
        End If
        End While
    End Sub
 
End Module