'************************************************************
'* Aufbau des Arrays **************************************
''* Aufbau [x][0] - LfdNr. --> KnotenID-Knoten-ID-KnotenID-ID zB. '1-1-3' _
  String mit Tenner '-'!
'*        [x][1] - Ausschrift / Knotenbezeichner
'*        [x][2] - Nr.des Icons in IconListe
'*        [x][3] - Bestimmte Angaben
'*        [x][4] - Vorgänger-Node
'*        [x][5] - Expanded
'*        [x][6] - Fett ?
'*        [x][7] - TextFarbe 1-blue/2-red/0-black
'*************************************************************
Private Sub TreeViewFuellen()
    Dim oNode As Node
    Dim i As Integer
    Dim objImagelist As MSComctlLib.ImageList
    Dim sStartExpanded As String
    Dim iNode As Integer
    Dim sID, sRelID As String
 
    aNodes = BildeArray()
    TreeViewEinstellen    '* GrundEinstellungen
    LoadImages            '* IconListe laden
    Set objImagelist = Me.ctlImageListReports '* IconListe binden
 
    With Me.ctlTreeViewReports
        .ImageList = objImagelist
        For i = 1 To UBound(aNodes) + 1
            iNode = i - 1
            If aNodes(iNode, 4) = 0 Then
                sID = Trim("N" & aNodes(iNode, 0))
                Set oNode = .Nodes.Add(, , sID, aNodes(iNode, 1))
            Else
                sRelID = Trim("N" & aNodes(iNode, 4))
                sID = Trim("N" & aNodes(iNode, 0))
                Set oNode = .Nodes.Add(sRelID, tvwChild, sID, aNodes(iNode, 1))
            End If
            '.........
        Next
    End With
End Sub