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 Gewicht As Single
        Dim Groesse As Single
        Dim Idealgewicht As Single
 
        Dim Faktor As Single = 0.9
        If RadioButton2.Checked = True Then Faktor = 0.85
 
        If Trim$(TextBox1.Text) <> "" Then
            Gewicht = CDec(TextBox1.Text)
        Else
            Gewicht = 0
        End If
 
        If Trim$(TextBox2.Text) <> "" Then
            Groesse = CDec(TextBox2.Text)
        Else
            Groesse = 0
        End If
 
        If Gewicht > 0 And Groesse > 0 Then
            Idealgewicht = CSng((Groesse - 100) * 0.9)
            Label1.Text() = "Ihr Idealgewicht: " & Idealgewicht & " " & "- Ihr" & _
              "Gewicht:" & Gewicht.ToString("0")
 
            Select Case Gewicht - Idealgewicht
                Case Is < -0.5
                    Label4.Text = "Sie haben Untergewicht"
                Case Is > 0.5
                    Label4.Text = "Sie haben Übergewicht"
                Case Else
                    Label4.Text = "Sie haben Normalgewicht"
            End Select
 
        Else
            Label1.Text() = "Ihr Wert: " & 0
        End If
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        Berechnen()
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox2.TextChanged
        Berechnen()
    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
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label3.Click
 
    End Sub
 
    Private Sub Label4_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Label4.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

Public Class Form2
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label2.Click
 
    End Sub
End Class