keypress... Op og Ned

Det mener jeg ikke man kan .. Pil Op, Ned, Venstre, Højre er vist reserveret for TextBox\'en og kan vist ikke detectes uden brug af subclassing/api\'s ..

Jeg ved ikke hvordan man gør det med Op, Ned, Venstre, Højre men NumLock kan laves sådan.

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 50 Then MsgBox \"2\"
    If KeyAscii = 52 Then MsgBox \"4\"
    If KeyAscii = 54 Then MsgBox \"6\"
    If KeyAscii = 56 Then MsgBox \"8\"
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Sådan i en TextBox


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp: MsgBox \"Up\"
        Case vbKeyDown: MsgBox \"Down\"
        Case vbKeyLeft: MsgBox \"Left\"
        Case vbKeyRight: MsgBox \"Right\"
    End Select
End Sub

Hvis du vil annullere tastetryk, skal du bruge keypress-eventet...