Ciao !
se disegni il rettangolo in una Picture, è veramente banale:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Move X, Y
End Sub


Naturalmente è solo un esempio, poi dovrai gestire altri eventi...