Public Class Form1
    Private r1 As New Rectangle(100, 100, 50, 50)
    Private r2 As New Rectangle(120, 120, 50, 50)
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        With e.Graphics
            .FillRectangle(Brushes.Blue, r1) '= Bitmap1
            .FillRectangle(Brushes.Red, r2)  '= Bitmap2
            .FillRectangle(Brushes.Yellow, Rectangle.Intersect(r1, r2)) _
              'Kollisionsbereich
        End With
    End Sub
End Class