Эмуляция нажатия клавиш в полноэкранных приложениях

Dim kb As New Devices.Keyboard
...
kb.SendKeys("q")
kb.SendKeys("Q")

SendKeys.Send("A")

SendKeys.Send("A")

<Runtime.InteropServices.DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
 
'В таймер (интервал 50, и не забудь включить).
If GetAsyncKeyState(Keys.A) Then
SendKeys.Send("Q")
End If
'Конец.

Public Sub SendKey(ByVal k As Keys)
            PostMessage(hWnd, WM_KEYDOWN, New IntPtr(CInt(k)), IntPtr.Zero)
            PostMessage(hWnd, WM_KEYUP, New IntPtr(CInt(k)), IntPtr.Zero)
        End Sub

    
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
    End Function
 
    Private Declare Function FindWindow Lib "user32" _
              Alias "FindWindowA" (ByVal lpClassName As String, _
                    ByVal lpWindowName As String) As Long
Public Sub SendKey(ByVal k As Keys)
        Dim hWnd As Long
        hWnd = FindWindow(vbNullString, "Безымянный - Блокнот" & Chr(0))
        PostMessage(hWnd, &H12, New IntPtr(CInt(k)), IntPtr.Zero)
        '  PostMessage(hWnd, WM_KEYUP, New IntPtr(CInt(k)), IntPtr.Zero)
    End Sub
...
SendKey(Keys.L)