Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As  _
  System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Dim m As Int16
        Dim gp As New GraphicsPath
 
        For m = 0 To grPathArray.Count - 1
            gp = grPathArray(m)
            If gp.IsVisible(e.X, e.Y) Then
                MessageBox.Show("Linie =  " & lList(m).Name)
            Else
        Next
End Sub