Оздаешь форму с кнопкой на ней.
Вот примерчик переаскивания кнопки

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


Private Sub Command1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Caption = CStr(X) + "*" + CStr(Y) + "*" + CStr(State)
Command1.Move X - Command1.Width / 2, Y - Command1.Height / 2
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Form1.Caption = CStr(X) + "*" + CStr(Y) + "*" + CStr(State)
Command1.Move X - Command1.Width / 2, Y - Command1.Height / 2
End Sub