.Nodes.Add , ,"root", "Hauptknoten", 1, 2

With frmMain.trvDatenbank
      Set .ImageList = frmMain.ImageList
 
      .Indentation = 250
      .LineStyle = tvwTreeLines
 
      .Nodes.Add , , "root", "Obereintrag", 1, 2
      .Nodes.Add "root", tvwChild, "leaf_1", "Untereintrag 1", 1, 2
 
      .Nodes.Add "root", tvwChild, "leaf_2", "Untereintrag 2", 1, 2
   End With

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.