With TreeView1 .Style = tvwTreelinesPlusMinusPictureText .LineStyle = tvwRootLines .CheckBoxes = False With .Nodes .Clear .Add Key:="TEST", Text:="TEST" .Add "TEST", tvwChild, "A", "A" .Add "A", tvwChild, "A 1 2 3", "A 1 2 3" .Add "A", tvwChild, "A 4 5 6", "A 4 5 6" .Add "TEST", tvwChild, "B", "B" .Add "B", tvwChild, "B 1 2 3", "B 1 2 3" .Add "B", tvwChild, "B 4 5 6", "B 4 5 6" End With End With