Private Sub Form_KeyDown(KeyCode as Integer,...)
Select case KeyCode
Case vbKeyUp
'wenn Cursortaste hinauf gedrückt wird
Case vbKeyDown
'wenn Cursortaste hinunter gedrückt wird
case vbKeyLeft
'wenn Cursortaste nach links gedrückt wird
case vbkeyRight
'wenn Cursortaste nach rechts gedrückt wird
End Select
End Sub