Private Sub MySaveSettings()
        '---Checked True or False---
        My.Settings.RB_CNCGrundplatte = Me.RB_CNCGrundplatte.Checked
        '.....
        '---Text - Strings / TextBoxen etc.----
        My.Settings.CB_PSEingabe = Me.CB_PSEingabe.Text
        '.....
 
        ''''--hier das TabControl---?????????????
        My.Settings.TabPage = Me.TabControl1.SelectedTab.Name
 
    End Sub
 
   Private Sub MyLoadSettings()
        '---Checked True or False---
        Me.RB_CNCGrundplatte.Checked = My.Settings.RB_CNCGrundplatte
        '.....
        '---Text - Strings / TextBoxen etc.----
        Me.CB_PSEingabe.Text = My.Settings.CB_PSEingabe
        Me.TB_PSEingabe.Text = My.Settings.TB_PSEingabe
        '.....
 
        ''''--hier das TabControl---?????????????
        Me.TabControl1.SelectedTab.Name = My.Settings.TabPage
 
    End Sub

mfg.

Dirk