fang key press event med pil tasterne

vbKeyUp
vbKeyDown
vbKeyLeft
vbKeyRight

//>Rune

Keycoden for dem er:

37: Venstre
38: Op
39: Højre
40: Ned

//>Rune

Fx. sådan her:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyAscii = 38 Then MsgBox("Hudilihuuu")
End Sub

//>Rune

Private Sub Text1_KeyPress(KeyAscii As Integer)

kunne også bruges !

Den jeg bruger er Form1's egen keydown event trigger.
 
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)

Problemet ligger i at den ikke trigger på pil tasterne

-------
Private Sub Form1_KeyDown(KeyAscii As Integer)

If KeyAscii = 37 Then MsgBox("Gå til Venstre")
If KeyAscii = 38 Then MsgBox("Gå op")
If KeyAscii = 39 Then MsgBox("Gå til højre")
If KeyAscii = 40 Then MsgBox("Gå ned")
End If

End Sub
---------
Mener det burde virke