Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2)<0 Then ...
If GetAsyncKeyState(vbKeyF2)<0 and GetAsyncKeyState(vbKeyF3)<0 Then ...
End Sub
