Dim a As Single, b As Single, c As Single
Dim q As Single, h As Single
Dim Links As Single, Unten As Single
 
With Picture1
    Links = 3
    Unten = .ScaleHeight - 3
End With
 
a = CSng(txtA.Text)
b = CSng(txtB.Text)
c = CSng(txtC.Text)
 
q = (c ^ 2 + b ^ 2 - a ^ 2) / (2 * c)
h = (b ^ 2 - q ^ 2) ^ (1 / 2)
 
Picture1.Line (Links + q, Unten - h)-(Links + c, Unten)
Picture1.Line (Links + c, Unten)-(Links, Unten)
Picture1.Line (Links, Unten)-(Links + q, Unten - h)