все там есть только почемуто не высвечивется при автоподстановке
Dim n As Node
Set n = Me.TreeView1.Nodes.Add(, , "n1", "node1")
Set n = Me.TreeView1.Nodes.Add(, , "n2", "node2")
Set n = Me.TreeView1.Nodes.Add(, , "n3", "node3")
Set n = Me.TreeView1.Nodes.Add("n1", 4, "n1.1", "node1.1")
Me.TreeView1.Requery