Salve cercavo di capire il modo di verificare se i tasti ctrl etc etc vengono premuti.Il mio manuale suggerisce

codice:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift And 1 = 1 Then Print "Maiusc"
If Shift And 2 = 2 Then Print "ctrl"
If Shift And 4 = 4 Then Print "ALT"

End Sub
ma sembra non funzionare correttamente.A cosa è dovuto?

l'errore è il seguente.se premo uno solo dei tasti ctrl alt o maiuscolo non accade niente.se ne premo due mi visualizza che ho premuto tutti e tre