Structure StrText
   Dim Name As String
   Dim Text As String
End Structure
 
Structure StrCheck
   Dim Name As String
   Dim Checked As Boolean
End Structure
 
Dim CbList As New List(Of StrCheck) 'Liste für Checkboxen
Dim TbList As New List(Of StrText)  'Liste für Textboxen
 
Sub SaveControls(pan As Panel)
 
        For Each contr As Control In pan.Controls
 
            Select Case contr.GetType().ToString
 
                Case "System.Windows.Forms.CheckBox"
                    Dim cb As CheckBox = CType(contr, CheckBox)
                    Dim s As New StrCheck
                    s.Name = cb.Name        'Name der Checkbox
                    s.Checked = cb.Checked  'Status der Checkbox
                    CbList.Add(s)           'in Liste speichern
 
                Case "System.Windows.Forms.TextBox"
                    Dim tb As TextBox = CType(contr, TextBox)
                    Dim s As New StrText
                    s.Name = tb.Name        'Name der Textbox
                    s.Text = tb.Text        'Text der Textbox
                    TbList.Add(s)           'in Liste speichern
 
            End Select
 
        Next
 
        '--> Listen serialisieren und in My.Settings speichern
 
    End Sub

 Sub LoadControls(pan As Panel)
 
        For Each contr As Control In pan.Controls
 
            Select Case contr.GetType().ToString
 
                Case "System.Windows.Forms.CheckBox"
                    Dim cb As CheckBox = CType(contr, CheckBox)
                    For Each s In CbList
                        If s.Name = cb.Name Then
                            cb.Checked = s.Checked
                        End If
                    Next
 
                Case "System.Windows.Forms.TextBox"
                    Dim tb As TextBox = CType(contr, TextBox)
                    For Each s In TbList
                        If s.Name = tb.Name Then
                            tb.Text = s.Text
                        End If
                    Next
 
            End Select
 
        Next

 For Each s In CbList
    If s.Name = cb.Name Then
      cb.Checked = s.Checked
    End If
 Next

  cb.Checked = Liste.CbListe.Find(Function(x1) x1.Name = cb.Name).Checked