ใช้ picturebox ในการทำจิ๊กซอ แล้วต้องการให้เช็คว่า ถ้ารูปไม่ต่อกันให้โชว์ message box ว่า error ใครพอจะทราบแนะนำหน่อยนะคะ

       Public Class Form1
    Dim lst As New List(Of PictureBox)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lst.Add(PictureBox1)
        lst.Add(PictureBox2)

        For Each pic As PictureBox In lst
            Dim a As Double = PictureBox3.Location.X
            Dim b As Double = PictureBox3.Location.Y
            Dim c As Double = b + PictureBox3.Height
            Dim d As Double = a + PictureBox3.Width
            If a = pic.Location.X + pic.Width Or d = pic.Location.X Or b = pic.Location.Y + pic.Height Or c = pic.Location.Y Then
                MessageBox.Show("มีส่วนที่ชนกันอยู่")
                lst.Add(PictureBox3) 'เพิ่ม PictureBox3 ลงใน list
                Exit Sub
            End If
        Next
        MessageBox.Show("ไม่มีส่วนที่ชนกันเลย")
    End Sub
End Class