Dim rect1 As New RectangleF(10, 10, 20, 20)
        Dim gp1 As New GraphicsPath
        gp1.AddRectangle(rect1)
 
        Dim rect2 As New RectangleF(15, 15, 25, 25)
        Dim gp2 As New GraphicsPath
        gp2.AddRectangle(rect2)
 
        Dim rect3 As New RectangleF(40, 40, 50, 50)
        Dim gp3 As New GraphicsPath
        gp3.AddRectangle(rect3)
 
 
        Dim r1 As Region = New Region(gp1)
 
        r1.Intersect(gp2)
 
        Dim g As Graphics = Me.CreateGraphics()
 
        If r1.IsEmpty(g) Then
            Debug.WriteLine("Is empty")
        Else
            Debug.WriteLine("Is not empty")
        End If
 
 
        r1 = New Region(gp1)
 
        r1.Intersect(gp3)
 
 
        If r1.IsEmpty(g) Then
            Debug.WriteLine("Is empty")
        Else
            Debug.WriteLine("Is not empty")
        End If
 
        g.Dispose()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist