For i = 1 To iCount
tree.Nodes.Add , , "K" & i, "Min textrubrik" & i
tree.Nodes("K" & i).Expanded = True
Next

' Genom att sätta expand egenskapen i en separat loop, så blev det en enorm ökning, närmare 20-30 sekunder snabbare än exemplet ovan. (Expand funktionen ser till att denna textrubrik visas när den läggs till).

For i = 1 To iCount
tree.Nodes.Add , , "K" & i, "MyText" & i
Next
Dim nod As Node
For Each nod In tree.Nodes
nod.Expanded = True
Next