Imports System.Drawing.Drawing2D
Public Class Form1
    Dim gp As New GraphicsPath
    Dim r As Region
    Private Sub Panel1_MouseClick(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseClick
        If r.IsVisible(e.Location) Then
            MsgBox("getroffen")
        End If
    End Sub
    Private Sub Panel1_Paint(sender As System.Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        gp.AddLine(New Point(1, 0), New Point(10, 0))
        gp.AddLine(New Point(20, 56), New Point(5, 40))
        gp.AddRectangle(New Rectangle(New Point(100, 100), New Size(40, 40)))
        r = New Region(gp)
        e.Graphics.DrawPath(Pens.Black, gp)
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus