Определение длин сторон треугольника - VB

Формулировка задачи:

В общем прога есть на построение треугольника по вершинам.Вершины задаются с клавиатуры.Надо определить длины сторон треугольника и вывести их на экран(хоть на форме в уголке написать). код самого треугольника:3 текстовых поля,2 кнопки

Private Sub CommandButton1_Click()
Form1.ScaleMode = 1
Form1.AutoRedraw = True
X1 = Text1.Text
Y1 = Text2.Text
a = Text3.Text
 
Form1.Line (X1, Y1)-(X1, Y1 - a)
Form1.Line (X1, Y1 - a)-(X1 - a, Y1 - a)
Form1.Line (X1 - a, Y1 - a)-(X1, Y1)
 
End Sub
 
Private Sub CommandButton2_Click()
Form1.Cls
End Sub

Заранее благодарен)

Решение задачи: «Определение длин сторон треугольника»

textual
                            Листинг программы 
                        

                            Private Sub Cmd1_Click()
Form1.ScaleMode = 1
Form1.AutoRedraw = True
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
x3 = Text5.Text
y3 = Text6.Text
 
Form1.Line (X1, Y1)-(X1, Y2)
Form1.Line (X1, Y2)-(X2, Y2)
Form1.Line (X2, Y2)-(X1, Y1)
ab = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
bc = Sqr((x3 - X2) ^ 2 + (y3 - Y2) ^ 2)
ac = Sqr((X1 - x3) ^ 2 + (Y1 - y3) ^ 2)
Text7.Text = ab
Text8.Text = bc
Text9.Text = ac
End Sub
Private Sub Cmd2_Click()
Form1.Cls
End Sub
Private Sub Cmd3_Click()
End
End Sub
                        