Option Explicit
 
Dim bMoveIT     As Boolean
Dim lOldX       As Long
'Dim lOldY       As Long
 
Private Sub Command1_MouseDown(Button As Integer, Shift As _
                               Integer, X As Single, Y As Single)
  bMoveIT = True
  lOldX = X
  'lOldY = Y
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As _
                               Integer, X As Single, Y As Single)
  If bMoveIT = True Then
    Command1.Left = Command1.Left + (X - lOldX)
    'Command1.Top = Command1.Top + (Y - lOldY)
  End If
 
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As _
                             Integer, X As Single, Y As Single)
  bMoveIT = False
End Sub