[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم يلزمك حدثين للاداة التي تريد تحريكها
1 حدث MouseDown
2- MouseMove
اولا نعرف متغير عبارة عن النقطة التي نضغط فيها بالماوس على الكونترول والباقي كما في الاكواد عمليات حسابية
هنا في هذه الاكواد ضع اداة pictureBox واستخدم الحدثين كالتالي

كود :

Private mouseDownLocation As Point
   Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
       If e.Button = System.Windows.Forms.MouseButtons.Left Then
           mouseDownLocation = e.Location
       End If
   End Sub

   Private Sub PictureBox1_MouseMove_1(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
       If e.Button = System.Windows.Forms.MouseButtons.Left Then
           PictureBox1.Left = e.X + PictureBox1.Left - mouseDownLocation.X
           PictureBox1.Top = e.Y + PictureBox1.Top - mouseDownLocation.Y
       End If
   End Sub