Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
      Handles MyBase.Load
        RadioButton1.Checked = True
    End Sub
 
    Private Sub Berechnen()
 
        Dim Faktor As Single = 0.9
        If RadioButton2.Checked = True Then Faktor = 0.85
 
        Dim Gewicht As Single = CDec(Trim$(TextBox1.Text))
        Dim Groesse As Single = CDec(Trim$(TextBox2.Text))
 
        Dim IdealGewicht As Single = (Groesse - 100) * Faktor
        Label1.Text = IdealGewicht.ToString("0")
 
        Select Case Gewicht - IdealGewicht
            Case Is < -0.5
                Label2.Text = "Untergewicht"
            Case Is > 0.5
                Label2.Text = "Übergewicht"
            Case Else
                Label2.Text = "Normalgewicht"
        End Select
 
    End Sub
 
    Private Sub TextBoxChanged(ByVal sender As System.Object, ByVal e As _
        System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, _
        RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
 
        Berechnen()
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
 
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label2.Click
 
    End Sub
End Class