Входят ли координаты в треугольник.

'Булева функция IsPointInABC возвращает True, если точка в треугольнике
'A, B, C - вершины треугольника, X - данная точка
Function IsPointInABC(ByVal A As Point, ByVal B As Point, ByVal C As Point, ByVal X As Point) As Boolean
    'Заданная точка соединяется отрезками с вершинами треугольника. 
    'Если площадь исходного треугольника равна сумме площадей образовавшихся 
    'трёх треугольников, то считается, что точка принадлежит треугольнику.
    If S(A, B, C) = S(A, B, X) + S(A, C, X) +S(C, B, X) Then
        Return True
    Else
        Return False
    End If
End Function
 
'S - вычисляет площадь треугольника по координатам вершин
Function S(ByVal p1 As Point, ByVal p2 As Point, ByVal p3 As Point) As Double
    S = Math.Abs(p1.X*(p2.Y-p3.Y)+p2.X*(p3.Y-p1.Y)+p3.X*(p1.Y-p2.Y))/2
End Function

Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
    'Вершины треугольника
    Dim A As Point = New Point(0, 0)
    Dim B As Point = New Point(0, 100)
    Dim C As Point = New Point(50, 50)
    'Данная точка
    Dim X As Point = New Point(10, 50)
    If IsPointInABC(A, B, C, X) Then MessageBox.Show("Точка находится в треугольнике")
End Sub
 
'Булева функция IsPointInABC возвращает True, если точка в треугольнике
'A, B, C - вершины треугольника, X - данная точка
Function IsPointInABC(ByVal A As Point, ByVal B As Point, ByVal C As Point, ByVal X As Point) As Boolean
    'Заданная точка соединяется отрезками с вершинами треугольника. 
    'Если площадь исходного треугольника равна сумме площадей образовавшихся 
    'трёх треугольников, то считается, что точка принадлежит треугольнику.
    If S(A, B, C) = S(A, B, X) + S(A, C, X) +S(C, B, X) Then
        Return True
    Else
        Return False
    End If
End Function
 
'S - вычисляет площадь треугольника по координатам вершин
Function S(ByVal p1 As Point, ByVal p2 As Point, ByVal p3 As Point) As Double
    S = Math.Abs(p1.X*(p2.Y-p3.Y)+p2.X*(p3.Y-p1.Y)+p3.X*(p1.Y-p2.Y))/2
End Function

'Данная точка
Dim X As Point = New Point(10, 50)

'Данная точка
Dim X As Point = New Point(Convert.ToInt32(textBox1.Text), Convert.ToInt32(textBox2.Text))