Как определить пренадлежит ли точка отрезку?

    ''' <summary>
    ''' Функция для нахождения точки пересечения двух прямых, проходящих через заданные точки
    ''' </summary>
    ''' <param name="p1">Первая точка первой прямой</param>
    ''' <param name="p2">Вторая точка первой прямой</param>
    ''' <param name="p3">Первая точка второй прямой</param>
    ''' <param name="p4">Вторая точка второй прямой</param>
    ''' <returns>Возвращает координату точки пересечения. Если прямые параллельны, то возвращается Nothing</returns>
    Private Function CrossPoint(p1 As Point, p2 As Point, p3 As Point, p4 As Point) As PointF
        Dim a1, a2, b1, b2, c1, c2 As Integer
        a1 = p1.Y - p2.Y : b1 = p2.X - p1.X : c1 = p1.X * p2.Y - p2.X * p1.Y
        a2 = p3.Y - p4.Y : b2 = p4.X - p3.X : c2 = p3.X * p4.Y - p4.X * p3.Y
        Dim pt As New PointF
        If a1 * b2 - a2 * b1 = 0 Then
            pt = Nothing 'Прямые параллельны
        Else
            pt.X = Convert.ToDecimal(b1 * c2 - b2 * c1) / Convert.ToDecimal(a1 * b2 - a2 * b1)
            pt.Y = Convert.ToDecimal(c1 * a2 - c2 * a1) / Convert.ToDecimal(a1 * b2 - a2 * b1)
        End If
        Return pt
    End Function

Private Function CrossPoint(p1 As Point, p2 As Point, p3 As Point, p4 As Point) As PointF?
  Dim a1 As Integer = p1.Y - p2.Y, b1 As Integer = p2.X - p1.X, c1 As Integer = p1.X * p2.Y - p2.X * p1.Y
  Dim a2 As Integer = p3.Y - p4.Y, b2 As Integer = p4.X - p3.X, c2 As Integer = p3.X * p4.Y - p4.X * p3.Y
  Dim den As Integer = a1 * b2 - a2 * b1
  Return If(den, CType(New PointF((b1 * c2 - b2 * c1) / den, (c1 * a2 - c2 * a1) / den), PointF?), Nothing)
End Function

 pt = CrossPoint(New Point(0, kvY), New Point(kvX, kvY), New Point(tX1, tY1), New Point(tX2, tY2))

        Dim pt As Object = CrossPoint(New Point(350, 300), New Point(100, 100), New Point(200, 200), New Point(100, 200))
        If pt Is Nothing Then
            MessageBox.Show("Прямые параллельны")
        Else
            MessageBox.Show(String.Format("Прямые пересекаются в точке {0}", CType(pt, PointF).ToString()))
        End If

Dim pt As PointF? = CrossPoint(New Point(350, 300), New Point(100, 100), New Point(200, 200), New Point(100, 200))
If pt.HasValue Then