[VB6] Intercettare la combinazione di due tasti

[Pinco Pallino 2]

Originariamente inviato da Mabi
Per rilevare una combinazione di tasti devi utilizzare l'altro parametro della routine: Shift.
KeyCode infatti può assumere un solo valore per volta, al contrario di Shift che contiene un differente valore in base ai tasti premuti.
Se Shift vale 1 è stato premuto il tasto MAIUS, se vale 2 è stato premuto CTRL e se vale 4 è stato premuto ALT.
Per combinazioni che includono due o tutti e tre i tasti relativi a Shift, viene effettuata la somma.
Ad esempio se Shift vale 7, (1+2+4) sono stati premuti tutti e tre.

If Shift = 1 And KeyCode = vbKeyF1 Then
  MsgBox "Shift + F1"
End If
If Shift = 7 And KeyCode = vbKeyF1 Then
  MsgBox "Shift + Ctrl + Alt + F1"
End If

e CANC quanto vale???