Iba a preguntarte para que querías esta tontería, pero mejor te pongo un ejemplo y tu mismo te das cuenta del porque iba a preguntártelo.
Código vb:
Ver originalPrivate Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move Command1.Left + X - Command1.Width / 2, Command1.Top + Y - Command1.Top / 2
End Sub
Lo normal es que el usuario deba mantener pulsado el boton para mover, no solo mover con pasar el mouse por encima.
De todos modos, lo que tu preguntas es lo que mas o menos hace este código.
Saludos