I thought this might solve the above problem, but apparently not.

I can't believe there is no way to add complete nodes to a tree....it seems like an obvious thing to want to do

Code:
Private Sub Form_Load()

    Dim tvw As Object
    Dim nde As Node
    Dim nde2 As Node
    
    Set tvw = CreateObject("MSComctlLib.TreeCtrl")
    
    With tvw
        Set nde = .Nodes.Add(, , "ROOT", "Root Node")
        Set nde = .Nodes.Add("ROOT", tvwChild, "CHILD1", "Child One")
        Set nde = .Nodes.Add("ROOT", tvwChild, "CHILD2", "Child Two")
    End With
    
    Set nde = tvw.Nodes("ROOT")
    
    Set nde2 = TreeView1.Nodes.Add(, , "R", "Tv1 Root")
    
    Set nde.Parent = TreeView1.Nodes("R")
    
End Sub