Imports System.Drawing.Drawing2D
Public Class Form1
    Dim gp As New GraphicsPath, p As New Pen(Brushes.Black, 7)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Dim rnd As New Random
        For i = 0 To 5
            gp.StartFigure()
            gp.AddLine(10, rnd.Next(250), 250, rnd.Next(250))
        Next
    End Sub
    Private Sub Me_MouseDown(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If gp.IsOutlineVisible(e.X, e.Y, p) Then MsgBox("Treffer") 
    End Sub
    Private Sub Form1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawPath(Pens.Red, gp)
    End Sub
End Class