Проверка пересечения PictureBox-ов:
Code
Private Function Intersect(pic1 As PictureBox, pic2 As PictureBox) As Boolean
If (pic1.Left < pic2.Left + pic2.Width) And (pic1.Left + pic1.Width > pic2.Left) Then
If (pic1.Top < pic2.Top + pic2.Height) And (pic1.Top + pic1.Height > pic2.Top) Then
Intersect = True
End If
End If
End Function
If Intersect(Picture1, Picture2) Then ...