Option Explicit

Private Drag As Boolean
Private StartX As Long
Private StartY As Long

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (Button & vbLeftButton) <> 0 Then
  Drag = True
  StartX = X
  StartY = Y
End If

End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Drag Then
  Command1.Left = Command1.Left + (X - StartX)
  Command1.Top = Command1.Top + (Y - StartY)
End If


End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Drag = False

End Sub