吧友们帮忙看下代码有什么错误

Private Sub Form_KeyPress(KeyAscii As Integer)
'按键盘A和D键控制猫图片image1左右移动
If KeyAscii = 97 Then
Image1.Picture = LoadPicture("G:\jf\tp\left1.jpg")
Image1.Left = Image1.Left - 30
If KeyAscii = 100 Then
Image1.Picture = LoadPicture("G:\jf\tp\right1.jpg")
Image1.Left = Image1.Left + 30
If KeyAscii = 119 Then
Image1.Picture = LoadPicture("G:\jf\tp\up1.jpg")
Image1.Top = Image1.Top - 30
If KeyAscii = 115 Then
Image1.Picture = LoadPicture("G:\jf\tp\down1.jpg")
Image1.Top = Image1.Top + 30
'如果坦克图片与地雷图片相遇则提示碰撞到了
If Image1.Left + Image1.Width > Image2.Left Then
If Image1.Left < Image2.Left + Image2.Width Then
If Image1.Top + Image1.Height > Image2.Top Then
If Image1.Top < Image2.Top + Image2.Height Then
MsgBox "坦克碰到地雷，已经被炸毁了"
End If
End If
End If
End If
If Image1.Left + Image1.Width > Image3.Left Then
If Image1.Left < Image3.Left + Image3.Width Then
If Image1.Top + Image1.Height > Image3.Top Then
If Image1.Top < Image3.Top + Image3.Height Then
MsgBox "坦克碰到地雷，已经被炸毁了"
End If
End If
End If
End If
End Sub

运行时显示：if没有end if

自言自语。。。好像if then后面一句代码的话就不用end if，多句就需要。

数数你的if和end if上面的明显少量许多end if

而且上面左右上下移动是包含关系。。。这这么可能让坦克动。。