Producto del aburrimiento hice una funcion generica para detectar si 2 objetos estan colisionando, usa api y es mas que simple.
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
Private Function IsColliding(ByVal obj1 As Control, ByVal obj2 As Control) As Boolean
Dim tRECT1 As RECT
Dim tRECT2 As RECT
With obj1
SetRect tRECT1, .Left, .Top, .Left + .Width, .Top + .Height
End With
With obj2
SetRect tRECT2, .Left, .Top, .Left + .Width, .Top + .Height
End With
IsColliding = IntersectRect(tRECT1, tRECT1, tRECT2)
End Function
Como llamar a la funcion
Private Sub Form_Load()
Debug.Print IsColliding(Image1, Image2)
End Sub