BestKill ☠

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Per sapere il tempo di ripetizione usate questa API
Private Declare Function SystemParamsLong Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
'Costante che indichera che a noi interessa la velocità di ripetizione e non il tempo di ritardo
Const SPI_GETKEYBOARDSPEED = 10

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) Then  ' azione
MsgBox "F1 è stato premuto!"
End If
End Sub

Regolare l’intervallo del Timer(serve per la lettura del tasto) a seconda delle esigenze, sul 80-90 và più che bene.