الرجاء تعديل الكود

السلام عليكم

هذا الكود بعد التعديل

 Public Class Form1
    Dim PIC1 As Boolean = False
    Dim PIC2 As Boolean = False
    Dim PIC3 As Boolean = False
    Dim PIC4 As Boolean = False

    'عرف عن المتغير التالي
    Private start As New Point()
    'حدث التحريك
    Private Sub PictureBox6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseMove
        Dim p As PictureBox = sender
        If e.Button = MouseButtons.Left Then
            Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
            If start.IsEmpty Then start = New Point(mousePos.X - p.Left, mousePos.Y - p.Top)
            p.Location = New Point(mousePos.X - start.X, mousePos.Y - start.Y)
        ElseIf Not start.IsEmpty Then
            start = New Point()
        End If
    End Sub
    Private Sub PictureBox7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMove
        Dim p As PictureBox = sender
        If e.Button = MouseButtons.Left Then
            Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
            If start.IsEmpty Then start = New Point(mousePos.X - p.Left, mousePos.Y - p.Top)
            p.Location = New Point(mousePos.X - start.X, mousePos.Y - start.Y)
        ElseIf Not start.IsEmpty Then
            start = New Point()
        End If
    End Sub
    Private Sub PictureBox8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseMove
        Dim p As PictureBox = sender
        If e.Button = MouseButtons.Left Then
            Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
            If start.IsEmpty Then start = New Point(mousePos.X - p.Left, mousePos.Y - p.Top)
            p.Location = New Point(mousePos.X - start.X, mousePos.Y - start.Y)
        ElseIf Not start.IsEmpty Then
            start = New Point()
        End If
    End Sub
    Private Sub PictureBox9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseMove

        Dim p As PictureBox = sender
        If e.Button = MouseButtons.Left Then
            Dim mousePos As Point = Me.PointToClient(Control.MousePosition)
            If start.IsEmpty Then start = New Point(mousePos.X - p.Left, mousePos.Y - p.Top)
            p.Location = New Point(mousePos.X - start.X, mousePos.Y - start.Y)
        ElseIf Not start.IsEmpty Then
            start = New Point()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If PictureBox6.Location.X > PictureBox8.Location.X And PictureBox6.Location.X < PictureBox7.Location.X And PictureBox6.Location.X < PictureBox9.Location.X Then
            PIC3 = True
        Else
            PIC3 = False
        End If
        If PictureBox7.Location.X > PictureBox6.Location.X And PictureBox7.Location.X > PictureBox8.Location.X And PictureBox7.Location.X < PictureBox9.Location.X Then
            PIC2 = True
        Else
            PIC2 = False
        End If
        If PictureBox8.Location.X < PictureBox6.Location.X And PictureBox8.Location.X < PictureBox7.Location.X And PictureBox8.Location.X < PictureBox9.Location.X Then
            PIC4 = True
        Else
            PIC4 = False
        End If
        If PictureBox9.Location.X > PictureBox6.Location.X And PictureBox9.Location.X > PictureBox7.Location.X And PictureBox9.Location.X > PictureBox8.Location.X Then
            PIC1 = True
        Else
            PIC1 = False
        End If

        If PIC1 = True And PIC2 = True And PIC3 = True And PIC4 = True Then
            Label1.Text = "أحسنت"
        Else
            Label1.Text = "حاول مرة اخرى"

        End If


    End Sub



End Class

اشكرك جزيل الشكر