Fang Tab og Shift+Tab i en form

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
  If KeyCode = 16 Then MsgBox \"Du har trykket Shift !\"
 
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

  If KeyAscii = 9 Then MsgBox \"Du har trykket TAB !\"

End Sub

Private Sub Form_Load()

  Me.KeyPreview = True

End Sub

Tak for svaret, jeg prøver.