Private MausX As Single
Private MausY As Single
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    ' Ausgangskoordinaten der Maus speichern
    MausX = X
    MausY = Y
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    ' Button verschieben, wenn Maustaste gedrückt
    If Button = vbLeftButton Then Command1.Move Command1.Left + X - MausX, _
      Command1.Top + Y - MausY
End Sub