Private Sub Command2_Click()
'Variablen'
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim alpha As Double
    Dim betha As Double
 
    Const pi = 3.14159265358979
    a = CDbl(ae.Text)
    b = CDbl(be.Text)
 
'Berechung von c
    c = Sqr((a ^ 2) + (b ^ 2))
    c = Round(c, 2)
 
'Ausgabe von a, b, c
    cd.Caption = "c= " & c
    ad.Caption = "a= " & a
    bd.Caption = "b= " & b
 
'Berechung von alpha und betha
    alpha = ((Atn(a / b)) * 180) / pi
    alpha = Round(alpha, 2)
 
    betha = 180 - 90 - alpha
    betha = Round(betha, 2)
 
'Ausgabe von alpha und betha
    wa.Caption = "= " & alpha & "°"
    wb.Caption = "= " & betha & "°"
 
 
End Sub

----------------------------------
Manche die sterben verdienen das Leben und mache die Leben verdienen den Tod. Kannst du dar?ber entscheiden?