Вычислить соотношение углов линий от одной точки к другой

        Dim x1, x2, y1, y2 As Integer
        Dim p1 As New Point(x1, y1)
        Dim p2 As New Point(x2, y2)
        Dim t, ang_C, and_D As Double
        ang_C = Math.Atan((y1 - y2) / (x2 - x1))
        and_D = 90 - ang_C
        MsgBox(ang_C & "->" & and_D)

        ang_C = Math.Atan(Math.Abs((p2.Y - p1.Y)) / Math.Abs((p2.X - p1.X))) * (180 / Math.PI)

        Dim x1, x2, y1, y2 As Integer
        Dim p1 As New Point(x1, y1)
        Dim p2 As New Point(x2, y2)
        Dim t, ang_C, and_D As Double
        'Находим гипотенузу прямоугольного треугольника, которая равна
        'сумме квадратов катетов, т.е.длины и ширины прямоугольника
        'ограниченного вершинами Р1 и Р2, лежащими на концах главной диагонали
        t = Math.Sqrt((p2.X - p1.X) ^ 2 + (p2.Y - p1.Y) ^ 2)
        'Найдя гипотенузу, через определение синуса угла в прямоугольном треугольнике,
        'находим синус и значение угла
        ang_C = Math.Asin(Math.Abs(p2.Y - p1.Y) / t) * (180 / Math.PI)
        and_D = 90 - ang_C
        MsgBox(ang_C & "->" & and_D)