Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
MsgBox "left"
ElseIf KeyCode = vbKeyUp Then
MsgBox "right"
ElseIf KeyCode = vbKeyRight Then
MsgBox "up"
ElseIf KeyCode = vbKeyDown Then
MsgBox "down"
End If
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
MsgBox "left"
ElseIf KeyCode = 39 Then
MsgBox "right"
ElseIf KeyCode = 38 Then
MsgBox "up"
ElseIf KeyCode = 40 Then
MsgBox "down"
End If