Эмуляция нажатия клавиш в приложении под управлением DirectX

Public Class Form1
 
    Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean
    Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
 
 
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
 
    Private Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши
    Private Const KEYEVENTF_EXTENDEDKEY = &H1
    Private Const VK_Q = &H51  'клавиша q
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
'Переключаемся а окно нашей программы, работает
        ProgHandle = FindWindow(vbNullString, "Dx_program")
        If ProgHandle = IntPtr.Zero Then
            MsgBox("Программа не найдена")
            End_work() 'в конце дописан метод завершения программы, не буду тут приводить
        End If
        SetForegroundWindow(ProgHandle)
 
threading.thread.sleep(1000)
 
' клацаем мышкой - РАБОТАЕТ
                mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 3, 3)
                Thread.Sleep(50)
                mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 3, 3)
 
' Жмем Q - НЕ РАБОТАЕТ
                keybd_event(VK_Q, 0, KEYEVENTF_EXTENDEDKEY, 0)
                Thread.Sleep(50)
                keybd_event(VK_Q, 0, KEYEVENTF_KEYUP, 0)
 
End sub
 
End class

                Dim lScan As Long
                lScan = MapVirtualKey(VK_Q, 0)
 
                keybd_event(VK_Q, lScan, KEYEVENTF_EXTENDEDKEY, 0)

Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Long
 
...
 
lVK = VkKeyScan(Asc(sKey))

Imports MyProgram.SendKeysClass
 
''''' ..... ''''
Public Class Form1
 
''''' ..... ''''
 
Private Sub Navik_q()
 
''''' ..... ''''
     PressKeyVK(eKeys.keyQ) ' это метод из класса SendKeysClass
''''' ..... ''''
 
End sub
End Class

                keybd_event(VK_Q, VK_Q_SCAN, 0, 0) 'нажимаем клавишу Q
                Thread.Sleep(50)' ждем 50 мс
                keybd_event(VK_Q, VK_Q_SCAN, KEYEVENTF_KEYUP, 0) ' отпускаем клавишу Q