Dim Rect3 As RECT, Rect1 As RECT, Rect2 As RECT, RetVal&
 
With Image1
  Rect1.Left = .Left
  Rect1.Top = .Top
  Rect1.Right = .Left + .Width
  Rect1.Bottom = .Top + .Height
End With
 
With Image2
  Rect2.Left = .Left
  Rect2.Top = .Top
  Rect2.Right = .Left + .Width
  Rect2.Bottom = .Top + .Height
End With
 
RetVal = IntersectRect(Rect3, Rect1, Rect2)
 
If RetVal <> 0 Then
  Me.Caption = "Kollision"
Else
  Me.Caption = "Keine Kollision"
End If

Gruss,

Zardoz