VISUALBASIC: EJERCICIO9

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
Shape1.Top = Y
Shape1.Left = X
End If
End Sub