Программное нажатие клавиши - VB (60583)

Формулировка задачи:

Есть код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
 
Public Sub wait(seconds)
Timer1.Enabled = True
Timer1.Interval = 1000 * seconds
While Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub
 
Private Sub Command1_Click()
Command1.Enabled = False
Do While True
SendKeys "{F5}"
wait (5)
Loop
End Sub

Почему-то кнопку нажимает не везде. Мне конкретно нужно чтоб в игре нажимало. Окно открыто, но никаких действий не происходит. Может необходимо использование каких-либо библиотек?

Решение задачи: «Программное нажатие клавиши»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши
 
Private Sub Form_Load()
    RunCode "PANZER"
End Sub
Private Function RunCode(Code As String)
    Dim N As Long
    For N = 1 To Len(Code)
        keybd_event Asc(Mid$(Code, N, 1)), 0, 0, 0
    Next
    For N = 1 To Len(Code)
        keybd_event Asc(Mid$(Code, N, 1)), 0, KEYEVENTF_KEYUP, 0
    Next
End Function