Mouse Move event

http://www.vbforums.com/showthread.php?597638-RESOLVED-VB6-Mouse-Move-event

Option Explicit

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.Drag vbBeginDrag
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Command1.Move X, Y
    Command1.Drag vbEndDrag
End Sub