Private Function Intersect( ByVal VecLine1 As VectorLine2, ByVal VecLine2 As VectorLine2 ) As Boolean
    Dim Numerator, Denominator, u As Single
    Denominator = ( VecLine2.Vec.Y * VecLine1.Vec.X + VecLine2.Vec.X * VecLine1.Vec.Y )
    If( Denominator = 0 ) Then
      Return False
    End If
    Numerator = ( VecLine2.Vec.X * ( VecLine1.Base.y - VecLine2.Base.Y ) - VecLine2.Vec.Y * ( VecLine1.Base.Y - VecLine2.Base.X ) )
    u = Numerator / Denominator
    Return Not( u < 0 Or u > 1 )
  End Function