Программное нажатие клавиши

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

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

Const VK_F5=&H74&

    For N = 1 To Len(Code)
        keybd_event Asc(Mid$(Code, N, 1)), 0, 0, 0
        keybd_event Asc(Mid$(Code, N, 1)), 0, KEYEVENTF_KEYUP, 0
    Next

keybd_event VK_F5, 0, 0, 0
keybd_event VK_F5, 0, KEYEVENTF_KEYUP, 0