Private Sub Laden(ByVal Container As Control)
        Dim octl As Control
        Dim Wert As String
        Dim Chk As CheckBox
        Dim Num As NumericUpDown
 
        For Each octl In Container.Controls
            If IO.File.Exists(Inipfad) Then
                If TypeOf octl Is ComboBox Then
                    Wert = ini.WertLesen("Main", octl.Name, "", )
                    octl.Text = Wert
                End If
 
                If TypeOf octl Is CheckBox Then
                    Wert = ini.WertLesen("Main", octl.Name, "False", )
                    Chk = CType(octl, CheckBox)
                    Chk.Checked = CBool(Wert)
                End If
 
                If TypeOf octl Is NumericUpDown Then
                    Num = CType(octl, NumericUpDown)
                    Num.Value = CType(ini.WertLesen("Main", octl.Name, , ), _
                      Decimal)
                End If
 
                'If TypeOf octl Is TextBox Then
                'Wert = ini.WertLesen("Main", octl.Name, "", )
                'octl.Text = Wert
                'MsgBox(octl.Name & " = " & Wert)
                'End If
 
 
            Else
                MsgBox("Die Inidatei " & vbCrLf & vbCrLf & Inipfad & vbCrLf & _
                  vbCrLf & "existiert nicht.", MsgBoxStyle.Information, "Datei" & _
                  "nicht gefunden")
            End If
 
            ' Rekursiv für alle Container die Controlls enthalten.
            If octl.HasChildren Then
                Laden(octl)
            End If
        Next
 
    End Sub