'// --
	Dim Path As New System.Drawing.Drawing2D.GraphicsPath()
	Dim Pen As New Pen(Color.Blue, 20)
 
	Sub MainFormLoad(ByVal sender As Object, ByVal e As EventArgs)
        Path.AddLine(1, 1, 500, 500)
	End Sub
 
	Sub MainFormPaint(ByVal sender As Object, ByVal e As PaintEventArgs)
        e.Graphics.DrawPath(Pen, Path)
	End Sub
 
	Sub MainFormMouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
		If Path.IsOutlineVisible(e.X, e.Y, pen) Then
			Dim col as Color = GetPixel(e.X, e.Y)
            MessageBox.Show("clicked inside the figure/line. color: " + _
              col.ToString())
        End If
	End Sub
 
	Private Function GetPixel(x As Integer, y As Integer)
		Dim rec As Rectangle = Me.ClientRectangle
		Dim col As Color = Color.Empty
		Using bmp As New Bitmap(Me.Width, Me.Height, Me.CreateGraphics()), g As _
  Graphics = Graphics.FromImage(bmp)
			G.CopyFromScreen(Me.PointToScreen(Rec.Location), New Point(0, 0), bmp.Size)
			col = bmp.GetPixel(x, y)
		End Using
		return col
	End Function
	'// --