如何在VB.NET中比较多行几何类型与点几何类型？

Imports System.Drawing

Module Module1
    Sub Main()
        ' 创建多行几何类型和点几何类型的对象
        Dim line As New Line(New Point(0, 0), New Point(5, 5))
        Dim point As New Point(3, 3)

        ' 比较多行几何类型与点几何类型
        Dim result As Boolean = CompareGeometry(line, point)

        ' 根据比较结果进行处理
        If result Then
            Console.WriteLine("多行几何类型与点几何类型相等")
        Else
            Console.WriteLine("多行几何类型与点几何类型不相等")
        End If

        Console.ReadLine()
    End Sub

    Function CompareGeometry(ByVal line As Line, ByVal point As Point) As Boolean
        ' 使用线段的Contains方法来判断点是否在线段上
        Return line.Contains(point)
    End Function
End Module

' 多行几何类型的定义
Class Line
    Public Property StartPoint As Point
    Public Property EndPoint As Point

    Public Sub New(ByVal startPoint As Point, ByVal endPoint As Point)
        Me.StartPoint = startPoint
        Me.EndPoint = endPoint
    End Sub

    Public Function Contains(ByVal point As Point) As Boolean
        ' 判断点是否在线段上的逻辑
        ' ...

        Return True ' 假设点在线段上
    End Function
End Class

' 点几何类型的定义
Class Point
    Public Property X As Integer
    Public Property Y As Integer

    Public Sub New(ByVal x As Integer, ByVal y As Integer)
        Me.X = x
        Me.Y = y
    End Sub
End Class