Private Sub Command1_Click()
Dim Wellenlänge As Currency
Dim Antennenlänge As Currency
Dim Frequenz As Currency
Dim Auswahl
 
 
Frame1.Visible = True
Auswahl = cboAuswahl.Text
 
 
 
 
lblAusgabe.Visible = True
Label3.Visible = True
 
 
Frequenz = txtWL.Text
 
Wellenlänge = 299.79 / Frequenz
 
lblAusgabe.Caption = Wellenlänge & " Meter"
lblAusgabe.Caption = FormatNumber(Wellenlänge, 2)
 
 
 
Antennenlänge = Wellenlänge / Auswahl