Private Sub Motor_cmd_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  [Anweisung Motor Start]
End Sub
 
Private Sub Motor_cmd_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  [Anweisung Motor Stop]
End Sub

Gruss,

Zardoz