使用“.Bounds.IntersectsWith”进行多个图片框冲突

Question

我已经为图片框之间的碰撞创建了一个子程序。 我有3种不同的颜色，每种颜色有10个相应的图片框 （共有30个图片框）。

理想情况下我想这样，当红色图片框与紫色或黄色图片框碰撞时，我的子例程就会执行。与紫色和黄色相同。

这是我的代码：

Public Sub PurpCollision()
  '
  For Each PictureBox In PurpList
    Collide = False
    If purpPoint1.Bounds.IntersectsWith(PictureBox.Bounds) And chkHealth.Checked = False Then
      Collide = True
    Else
      Collide = False
    End If

但是我正在努力解决这个问题

  

purpPoint1.Bounds.IntersectsWith（PictureBox.Bounds）`

如何将其设置为列出10个图片框， 如果它们与黄色列表或红色列表中的图片框相交，则碰撞是真的吗？