MessageBox.Show(test(347.6305, 192.3069, 1347.6305, 192.3069, 449.8265, _
          138.4294, 467.9634, 182.2364))

    Function test(ByVal p1x As Integer, ByVal p1y As Integer, ByVal p2x As _
      Integer, ByVal p2y As Integer, ByVal s1x As Integer, ByVal s1y As _
      Integer, ByVal s2x As Integer, ByVal s2y As Integer)
        Dim hlp, t, u As Integer
        Dim teste As Integer
 
        If s2x - s1x <> 0 Then
            'Fall1
            hlp = p2y - p1y - (s2y - s1y) * (p2x - p1x) / (s2x - s1x)
            If hlp <> 0 Then
                t = (s1y - p1y + (s2y - s1y) * (p1x - s1x) / (s2x - s1x)) / hlp
                If t >= 0 And t <= 1 Then
                    u = t * (p2x - p1x) / (s2x - s1x) + (p1x - s1x) / (s2x - _
                      s1x)
                    If u >= 0 And u <= 1 Then teste += 1
                End If
            End If
        ElseIf p2x - p1x <> 0 Then
            'Fall2
            t = (s1x - p1x) / (p2x - p1x)
            If t >= 0 And t <= 1 Then
                u = (p1y - s1y + (p2y - p1y) * (s1x - p1x) / (p2x - p1x)) / ( _
                  s2y - s1y)
                If u >= 0 And u <= 1 Then teste += 1
            End If
        Else
            'Fall3
 
        End If
        Return teste
    End Function