Imports System.Drawing.Drawing2D
Public Class Form1
    Dim gp1 As New GraphicsPath
    Dim gp2 As New GraphicsPath
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim p() As Point = {New Point(300, 200), New Point(330, 120), New Point( _
        360, 210), _
                                 New Point(250, 300), New Point(200, 230), New _
                                 Point(250, 150)}
        gp1.AddPolygon(p)
        gp2.AddPolygon(p)
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        gp2.Reset()
        Dim po() As Point = {New Point(e.X + 10, e.Y + 10), New Point(e.X + 40, _
          e.Y + 50), New Point(e.X + 100, e.Y + 10), _
            New Point(e.X + 120, e.Y + 80), New Point(e.X + 100, e.Y + +110), _
            New Point(e.X + 10, e.Y + 80)}
        gp2.AddPolygon(po)
        Me.Refresh()
        Dim s As String = "Keine Pathkollision"
        For Each p As PointF In gp1.PathPoints   'alle Polygoneckpunkte testen
            If gp2.IsVisible(p) Then
                s = "Pathkollision"
            End If
        Next
        For Each p As PointF In gp2.PathPoints   'alle Polygoneckpunkte testen
            If gp1.IsVisible(p) Then
                s = "Pathkollision"
            End If
        Next
        Me.Text = s
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawPath(Pens.Blue, gp1)
        e.Graphics.DrawPath(Pens.Blue, gp2)
    End Sub
End Class