Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As TPoint) As Long

Private Type TPoint

   x As Long

   y As Long

End Type

Dim PT As TPoint

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

   Call GetCursorPos(PT)

   Select Case KeyCode

      Case vbKeyUp: Call SetCursorPos(PT.x, PT.y - 10)

      Case vbKeyDown: Call SetCursorPos(PT.x, PT.y + 10)

      Case vbKeyLeft: Call SetCursorPos(PT.x - 10, PT.y)

      Case vbKeyRight: Call SetCursorPos(PT.x + 10, PT.y)

   End Select

End Sub