Private Sub Laden(ByVal Container As Control)
        'Aufruf erfolgt in FormLoad mit:
 
        'Dim Ctl As Control
        'For Each Ctl In Me.Controls
        'If Ctl.HasChildren Then Laden(Ctl)
        'End If
 
 
 
        Dim Inipfad As String = Systempfad() & "\system\test.ini"
        Dim ini As New INIDatei(Inipfad)
        Dim octl As Control
        Dim Num As NumericUpDown
        Dim Wert As String
 
        'Werte für NumericUpDown aus der Ini auslesen
        For Each octl In Container.Controls
            If IO.File.Exists(Inipfad) Then
 
                'funktioniert
                If TypeOf octl Is ComboBox Then
                    'If octl.Name.StartsWith("cbx") Then
                    Wert = ini.WertLesen("Main", octl.Name, "", )
                    octl.Text = Wert
                End If
 
 
                'funktioniert nicht
                If TypeOf octl Is NumericUpDown Then
                    On Error Resume Next
                    Num = octl
                    Wert = ini.WertLesen("Main", octl.Name, 3, )
                    Num.Value = Wert
                End If
 
            End If
 
            ' Rekursiv für alle Container die Controlls enthalten.
            If octl.HasChildren Then
                Laden(octl)
            End If
 
        Next
    End Sub