Public Sub ProgrammeinstellungenLesen(cControls As Object)
      'Funktion: Einlesen der Programmeinstellungen
      '
      'Knotenpunkte in der XML Datei
      Dim ndForm As MSXML2.IXMLDOMNode
      Dim ndFormProperty As MSXML2.IXMLDOMNode
      Dim ndProperty As MSXML2.IXMLDOMNode
      Dim ndControl As MSXML2.IXMLDOMNode
      Dim ndProgrammEinstellungen As MSXML2.IXMLDOMNode
      Dim ndLayout As MSXML2.IXMLDOMNode
 
      Dim nCount As Long
 
 
      'Hilfscontrol
      Dim TempControl As Control
      Dim c As Control
      'Zähler für Anzahl der Controls einer Form
      Dim iControlsZähler As Integer
      'Eigenschaftsname eines Kontrolls
      Dim sPropertyName As String
      'Wertangabe der Eingenschaft
      Dim sPropertyValue As String
      'Default-Propertywert
      Dim sPropertyDefault As String
      'Enabled-PropertyWert
      Dim sPropertyEnabled As String
      'Index für Icons
      Dim vntPropertyIconIndex As Variant
      'Icon File
      Dim sPropertyIconFile As String
 
6100    For Each ndForm In DokumentConfigLayoutXML.selectNodes("PGMDefinition/" _
  & cControls.name)
        'Einstellungen der Form setzen
6110        For Each ndProperty In ndForm.selectNodes("properties/property")
 
6120            If CheckXMLItem(ndProperty, "name") And CheckXMLItem( _
  ndProperty, "value") Then
 
6130                sPropertyName = ndProperty.Attributes.getNamedItem( _
  "name").Text
6140                sPropertyValue = ndProperty.Attributes.getNamedItem( _
"value").Text
6150                Err.Clear
 
6160                If sPropertyName <> "" And sPropertyValue <> "" Then
6170                    On Error Resume Next
6180                    CallByName cControls, sPropertyName, VbLet, _
  sPropertyValue
 
6190                    If Err.Number <> 0 Then
 
6200                        If Not EigenschaftenZuweisen(cControls.name, _
  sPropertyName, sPropertyValue, vbNullString) Then
6210                            Debug.Print cControls.name; sPropertyName; _
sPropertyValue
6220                        End If
 
6230                    End If
6240                    On Error GoTo 0
6250                    On Error GoTo ErrHandler
 
6260                End If
 
6270            End If
 
6280        Next
'... usw....
Public Function EigenschaftenZuweisen(sForm As String, _
                                      sPropertyName As String, _
                                      sPropertyValue As Variant, _
                                      Optional sControl As String) As Boolean
 
      'Hilfsvariable für Boolenwerte
      Dim bBool As Boolean
      Dim sTempForm As String
 
10    On Error GoTo ErrHandler
 
      'Werte zum vergleichen konvertieren
20      sPropertyName = LCase(sPropertyName)
30      sPropertyValue = LCase(sPropertyValue)
40      sTempForm = LCase(sForm)
50      sControl = LCase(sControl)
 
60      If sPropertyValue = "false" Or sPropertyValue = "falsch" Then
 
70          bBool = False
 
80      ElseIf sPropertyValue = "true" Or sPropertyValue = "wahr" Then
 
90          bBool = True
100     End If
      'Auswahl nach form
110     If sControl = "" Then
 
120         Select Case sTempForm
 
                Case "frmmain"
 
130                 Select Case sPropertyName
 
                        Case "font.name"
140                         frmMain.Font.name = sPropertyValue
150                     Case "font.bold"
160                         frmMain.Font.Bold = sPropertyValue
250                 End Select
 
260         End Select
 
270     Else
 
280         Select Case sTempForm
            'formular
                Case "frmmain"
290                 Select Case sControl
                        'Control
                        Case "xptaskbar"
300                         Select Case sPropertyName
                            'property
                                Case "left"
                                    'frmMain.xpTaskBar.Left = sPropertyValue
                                'Startbutton
310                             Case "startbuttonfont.name"
                                    'frmMain.xpTaskBar.StartButtonFont.Name = 
                                    ' sPropertyValue
320                             Case "startbuttonfont.bold"
                                    'frmMain.xpTaskBar.StartButtonFont.Bold = 
                                    ' bBool
'.
'usw...