Rilevare pressione dei tasti

[chico62]

Per rilevare la pressione di un tasto (o una combinazione di tasti) puoi usare KeyDown.
Esempio:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim CtrlDown
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKey6 And CtrlDown Then Call MsgBox("Premuto Ctrl+6")
If KeyCode = vbKeyNumpad6 And CtrlDown Then MsgBox ("Premuto Ctrl+6 (Tastierino)")
End Sub

Per maggiori info puoi consultare MSDN...

CIauz

CHico