Imports System.Drawing.Drawing2D
Public Class Form1
    Dim gparray(9) As GraphicsPath
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        For i As Int32 = 0 To 9
            e.Graphics.DrawPath(Pens.Red, gparray(i))
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Int32 = 0 To 9
            gparray(i) = New GraphicsPath
            gparray(i).AddLine(0, 10 + i * 20, 200, 10 + i * 20)
        Next
    End Sub
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim i As Integer
        For i = 0 To 9
            If gparray(i).IsOutlineVisible(e.X, e.Y, New Pen(Color.Black, 3)) = _
              True Then
                MessageBox.Show("Linie " & i.ToString)
            End If
        Next
    End Sub
End Class

 
 
            Dim gparray(9,1) As GraphicsPath
 
            gparray( i, 0) = New GraphicsPath
            gparray( i, 0).AddLine(0, 10 + i * 20, 200, 10 + i * 20)
            gparray( i, 1) = ID