'Benötig werden: ein Shape-Control, eine Picturebox
Private Sub Form_Load()
  Set Shape1.Container = Picture1
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  Shape1.Move X, Y
End Sub