Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        My.Settings.Combo = ComboBox1.SelectedIndex
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = My.Settings.Combo'Integer wert der den 
        ' selectierten Eintrag beinhaltet
        CheckBox1.Checked = My.Settings.Check1 ' Boolean
        CheckBox2.Checked = My.Settings.Check2 'Boolean
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        My.Settings.Check1 = CheckBox1.Checked
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox2.CheckedChanged
        My.Settings.Check2 = CheckBox2.Checked
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus