essaye quelque chose dans le genre :
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move Command1.Left + 45, Command1.Top + 45
End Sub
(il te faut donc un objet Command1).
Mais bien sûr ce n´est pas terrible vu que le boutons´en va. Mais ça te donne des idée, ensuite tu pourra l´améliorer.