Запуск своей программы при нажатии горячей клавиши в другой

Imports System.Runtime.InteropServices
Public Class Form1
 
    Public Const MOD_SHIFT As Integer = &H4
    Public Const WM_HOTKEY As Integer = &H312
    Private Const WM_PASTE = &H302
    Private Const WM_GETTEXT As Integer = &HD
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer,
    ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr,
                                     ByVal childAfter As IntPtr,
                                     ByVal lclassName As String,
                                     ByVal windowTitle As String) As IntPtr
 
    End Function
    Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
 
    <DllImport("User32.dll")>
    Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr,
                        ByVal id As Integer, ByVal fsModifiers As Integer,
                        ByVal vk As Integer) As Integer
    End Function
 
    <DllImport("User32.dll")>
    Public Shared Function UnregisterHotKey(ByVal hwnd As IntPtr,
                        ByVal id As Integer) As Integer
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, 200, MOD_SHIFT, Keys.T)
    End Sub
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_HOTKEY Then
            Dim id As IntPtr = m.WParam
            Select Case (id.ToString)
                Case "200"
                    Clipboard.SetText("Hello notepad")
                    Dim Hwnd As IntPtr = FindWindow(Nothing, "Безымянный -- Notepad")
                    SendMessage(Hwnd, WM_PASTE, 0, 0)
 
 
            End Select
        End If
        MyBase.WndProc(m)
    End Sub
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        UnregisterHotKey(Me.Handle, 200)
    End Sub
End Class

                Case "200"
                    Clipboard.SetText("Hello notepad")
                    Dim Hwnd As IntPtr = FindWindow(Nothing, "qw — Блокнот")
                    Hwnd = FindWindowEx(Hwnd, Nothing, "Edit", "")
                    SendMessage(Hwnd, WM_PASTE, 0, 0)

 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_HOTKEY Then
            Dim id As IntPtr = m.WParam
            Select Case (id.ToString)
                Case "200"
                    Clipboard.SetText("Hello notepad")
                    Dim Hwnd As IntPtr = FindWindow(Nothing, "Безымянный -- Notepad")
                    SendMessage(Hwnd, WM_PASTE, 0, 0)
 
 
            End Select
        End If
        MyBase.WndProc(m)
    End Sub

  If m.Msg = WM_HOTKEY

Imports System.Runtime.InteropServices
 
Public Class Form1
    Const WM_SETTEXT As Integer = &HC
    Const WM_GETTEXT As Integer = &HD
    Const WM_GETTEXTLENGTH As Integer = &HE
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As String) As IntPtr
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As String) As Integer
    End Function
 
    'THIS BUTTON SENDS THE TEXT TO NOTEPAD
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '[
        Dim myProcess As New Process()
        Try
 
            ' Create an instance of process component.
 
            ' Create an instance of 'myProcessStartInfo'.
            Dim myProcessStartInfo As New ProcessStartInfo()
            myProcessStartInfo.FileName = "notepad"
            myProcess.StartInfo = myProcessStartInfo
            ' Start process.
            myProcess.Start()
            ' Allow the process to finish starting.
            myProcess.WaitForInputIdle()
            MsgBox("Main window Title : " & myProcess.MainWindowTitle)
 
            ' myProcess.CloseMainWindow()
            ' myProcess.Close()
        Catch ex As ApplicationException
            '  Console.Write(" Message : " + e.Message)
        End Try
        ']
 
        Dim hParent As IntPtr = FindWindowEx(IntPtr.Zero, hParent, "Notepad", myProcess.WaitForInputIdle())  '  "Безымянный-Блокнот")
        If Not hParent.Equals(IntPtr.Zero) Then
            Dim hChild As IntPtr = FindWindowEx(hParent, hChild, "Edit", vbNullString)
            If Not hChild.Equals(IntPtr.Zero) Then
                SendMessage(hChild, WM_SETTEXT, 0, TextBox1.Text)
            Else
                MessageBox.Show("Child Window Not Found")
            End If
        Else
            MessageBox.Show("Main Window Not Found")
        End If
    End Sub
 
    'THIS BUTTON GETS THE TEXT FROM NOTEPAD
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim hParent As IntPtr = FindWindowEx(IntPtr.Zero, hParent, "Notepad", "Notepad")  '  "Untitled - Notepad")
        If Not hParent.Equals(IntPtr.Zero) Then
            Dim hChild As IntPtr = FindWindowEx(hParent, hChild, "Edit", vbNullString)
            If Not hChild.Equals(IntPtr.Zero) Then
                Dim txtlen As Integer = SendMessage(hChild, WM_GETTEXTLENGTH, 0, vbNullString)
                Dim txt As String = Space(txtlen + 1)
                SendMessage(hChild, WM_GETTEXT, txtlen + 1, txt)
                TextBox1.Clear()
                TextBox1.Text = txt
            Else
                MessageBox.Show("Child Window Not Found")
            End If
        Else
            MessageBox.Show("Main Window Not Found")
        End If
    End Sub
 
End Class

 Select Case (id)
                Case 200
                    Clipboard.SetText("Hello notepad")
                    Dim Hwnd As IntPtr = FindWindow(Nothing, "тест.txt — Блокнот")
                    Dim hChild As IntPtr = FindWindowEx(Hwnd, 0, "Edit", vbNullString)
                    SendMessage(hChild, WM_PASTE, 0, 0)
            End Select