Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If My.Settings.Groesse <> 0 Then
            txt_Groesse.Text = My.Settings.Groesse
        Else
            txt_Groesse.Text = "180"
        End If
        If My.Settings.Gewicht <> 0 Then
            txt_Gewicht.Text = My.Settings.Gewicht
        Else
            txt_Gewicht.Text = "90"
        End If
        rb_Maennlich.Checked = My.Settings.Geschlecht
        rb_Weiblich.Checked = Not rb_Maennlich.Checked
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If My.Settings.Groesse <> 0 Then
            txt_Groesse.Text = My.Settings.Groesse
        Else
            txt_Groesse.Text = "180"
        End If
        If My.Settings.Gewicht <> 0 Then
            txt_Gewicht.Enabled = My.Settings.Gewicht
        Else
            txt_Gewicht.Text = "90"
        End If
        rb_Maennlich.Checked = My.Settings.Geschlecht
 
 
    End Sub