' Daten
Dim sData(2) As String
sData(0) = "Komponenten|Karten - Boards|Grafikkarten|Grafikkarten Zubehör"
sData(1) = "Peripherie|Verbrauchsmaterial|Verbrauchsmaterial für Drucker"
sData(2) = "Peripherie|Verbrauchsmaterial|Papier"

' TreeView mit Daten aus sData-Array füllen
Dim i As Long
Dim u As Long
Dim oNode As Node
Dim sKat() As String
Dim sKey As String
 
With TreeView1
  .PathSeparator = "|"
  For i = 0 To UBound(sData)
    ' Existiert der Eintrag bereits?
    On Error Resume Next
    Set oNode = TreeView1.Nodes(sData(i))
    If Err.Number <> 0 Then
      ' Eintrag existiert noch nicht
      ' jetzt prüfen, welche Kategorien alles erstellt werden müssen
      sKat = Split(sData(i), "|")
      sKey = ""
      For u = 0 To UBound(sKat)
        Err.Clear
        If Len(sKey) > 0 Then sKey = sKey & "|"
        sKey = sKey & sKat(u)
        Set oNode = .Nodes(sKey)
        If Err.Number <> 0 Then
          ' Kategorie erstellen
          If u = 0 Then
            Set oNode = .Nodes.Add(, , sKey, sKat(u))
          Else
            Set oNode = .Nodes.Add(oNode.Index, tvwChild, sKey, sKat(u))
          End If
        End If
      Next u
    End If
    On Error GoTo 0
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de