per evitare di scrivere il codice per ogni controllo
ho pensato di utilizzare un timer posto in una videata
nascosta, utilizzando il seguente codice:

codice:
Private Sub §TimerIntercettazioneTasti_Timer()     If GetAsyncKeyState(vbKeyTab) Then         If GetShift Then             MsgBox "Shift Tab"           Else             MsgBox "Tab"         End If     End If End Sub   Public Function GetShift() As Boolean     GetShift = CBool(GetAsyncKeyState(vbKeyShift)) End Function
solo che ho l' impressione che non sempre mi da la risposta esatta;
il codice e' sbagliato?
ho provato
GetAsyncKeyState(vbKeyShift + vbKeyTab)
ma non funziona

esiste un metodo alternativo?

grazie