كود لتحريك صورة مع مؤشر الفأرة

ضع الكود في الفورم

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

   Picture1.Move X - 200, Y - 200

End Sub