Помощь в лабораторной работе, по построению Треугольника. На VB 6.0

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

Добрый день, помогите написать код для программы.
Дано: 3 окна ввода. Вводим размеры 3 сторон трекгольника = AB; AC; BC.
Результат: по полученным данным программа чертит

графически треугольник

.
Буду благодарен за помощь.

Решение задачи: «Помощь в лабораторной работе, по построению Треугольника. На VB 6.0»

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

                            Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

If (a + b > c) And (b + c > a) And (a + c > b) Then
            Label3.Caption = "Получился"
            n = (a + b + c)
            h = n \ 2
            s = Sqr(h * (h - a) * (h - b) * (h - c))
            Label1.Caption = n
            Label2.Caption = s         
          Else
            Label3.Caption = "Не получился."
End Sub

                        