ok here...

change the Drag mode of the command button to automatic


then in the Dragdrop event of the form.

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X
Source.Top = Y
End Sub




thats it