'放一个Timer
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
SendKeys ("{F1}") '这是按键
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbkef1) = 32767 Then MsgBox ("") '这是捕捉按键
End Sub
'你的问题不明确,请补充