[سعود]

كود :

Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
  
    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            dr = True
            ax = Windows.Forms.Cursor.Position.X - PictureBox1.Left
            ay = Windows.Forms.Cursor.Position.Y - PictureBox1.Top
        End If
    End Sub

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If dr Then
            PictureBox1.Left = Windows.Forms.Cursor.Position.X - ax
            PictureBox1.Top = Windows.Forms.Cursor.Position.Y - ay
        End If
    End Sub

    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        dr = False
    End Sub
End Class

هذا الكلاس مثال لتحريك مربع صورة انظر للاحدث المستخدمة والتعريفات الموجودة

---

يعني عند حدث اطلاق الزر الايسر PictureBox1_MouseUp
ممكن تكتب اي كود لفحص نتيجة المكان الصحيح

---

مثال بسيط لاهم مهمة لفكرة اللعبة حسب مافهمت من سؤالك الباقي عندث اطلاق الماوس تكتب كود التحقق هل المكان الجديد صحيح ام لا