有五个picturebox 该怎么写条件呢

坐标和宽高。逐一比对

就是这个 判断他们四个炸弹跟超人的位置碰撞 四个炸弹分别为picturebox2.....5 超人是picturebox1

可以用如下函数判断两个PictureBox是否重合：
Private Function Collision(picA As PictureBox, picB As PictureBox) As Boolean
Dim LeftA As Single, LeftB As Single
Dim RightA As Single, RightB As Single
Dim TopA As Single, TopB As Single
Dim BottomA As Single, BottomB As Single
LeftA = picA.Left: LeftB = picB.Left
RightA = picA.Left + picA.Width: RightB = picB.Left + picB.Width
TopA = picA.Top: TopB = picB.Top
BottomA = picA.Top + picA.Height: BottomB = picB.Top + picB.Height
Collision = (RightA - LeftB) * (RightB - LeftA) > 0 And (BottomA - TopB) * (BottomB - TopA) > 0
End Function

有没有好心人 再救救我

'很简单的吧。
'把怪物图片的picturebox 命名为怪兽的数组控件
'把超人图片的picturebox 命名为超人
Private Type 位置
x As Single
y As Single
End Type
Sub 检查碰撞(超人 As Control)
Dim a As Control
Dim 超人位置 As 位置, 怪兽位置 As 位置
With 超人位置
.x = 超人.Left
.y = 超人.Top
End With
For Each a In Me.Controls
If a.Name = "怪兽" Then
With 怪兽位置
.x = a.Left
.y = a.Top
End With
If Abs(超人位置.x - 怪兽位置.x) <= a.Height And Abs(超人位置.y - 怪兽位置.y) <= a.Width Then
Print a.Index & "号怪兽和超人撞了"
End If
End If
Next
End Sub
Private Sub Timer1_Timer()
'增加怪物随机移动的代码
检查碰撞 超人
End Sub

5、6楼都给了你代码和思路。
如你图片所述，以vb6为基础，假设人图片是p0，地雷图片分别是p1~p4,
先写两个自定义函数，随机移动函数和碰撞函数，调用例如：
1：yd(p1),yd(p2),yd(p3),yd(p4)，令四张地雷图片随机移动:
2：pz(p0,p1),pz(p0,p2),pz(p0,p3),pz(p0,p4)，分别判断人碰撞到地雷
A：移动函数和生存时间放在时钟控件里。
B：碰撞函数放在键盘（或鼠标）事件中进行真假判断。(if pz(p0,p1) then msgbox"游戏结束":exit sub)
C：开始游戏按钮只是控制时钟事件的启动。(timer1.enabled=true)
鉴于你是其它程序代码，就不强求人家给你敲代码了，以免浪费广大回友的感情。

咳，还是给你代码吧，.net下的碰撞检测没这么复杂，因为它集成了gdiplus
Dim region1 As Region = New Region(New Rectangle(PictureBox1.Left, PictureBox1.Top, PictureBox1.Width, PictureBox1.Height))
Dim region2 As Region = New Region(New Rectangle(PictureBox2.Left, PictureBox2.Top, PictureBox2.Width, PictureBox2.Height))
region1.Intersect(region2)
MsgBox(region1.IsEmpty(Me.CreateGraphics()))
用picturebox1和picturebox2的位置建立两个region，然后得到region的交集，交集为空就是没碰撞，不为空就碰撞了，就这么简单

Private Function hitTest(ByVal region2 As Region) As Boolean
Dim region As Region = New Region(New Rectangle(超人.left, 超人.top, 超人.width, 超人.height))
Dim r As Boolean
region.Intersect(region2)
r = Not region.IsEmpty(Me.CreateGraphics)
region.Dispose()
region = Nothing
Return r
End Function
Private Function 碰撞() As Boolean
Dim region1 As Region = New Region(New Rectangle(炸弹1.left, 炸弹1.top, 炸弹1.width, 炸弹1.height))
Dim region2 As Region = New Region(New Rectangle(炸弹2.left, 炸弹2.top, 炸弹2.width, 炸弹2.height))
'下面几个炸弹自己写
Dim r As Boolean
r = hitTest(region1) And hitTest(region2) And hitTest(region3) And hitTest(region4)
'region3,region4自己写
region1.Dispose()
region2.Dispose()
region3.Dispose()
region4.Dispose()
Return r
End Function
'然后你在某个timer下写
if 碰撞（）=true Then
'这里写碰撞了你要干嘛
end if