Visual Basic - Mover botones con el mouse

Quisiera saber como puedo cambiar de posicion un boton al tomarlo con el mouse, algo asi como drag & drop.

gracias

Crea un form con un CommandButton y pegale esto

Option Explicit
Dim xpos As Integer
Dim ypos As Integer

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xpos = X
ypos = Y
End Sub

Private Sub Command1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button > 0 Then
Command1.Move Command1.Left + X - xpos, Command1.Top + Y - ypos
End If
End Sub