''======================================== '' BUILDING A TREE PROGRAMATICALLY ''======================================== '' This approach would be best suited for building '' dynamic trees using For..Next loops and such.
Set MyTree2 = New Tree MyTree2.Top = 10 MyTree2.Left = 10 MyTree2.ExpandImage = "plus.gif" MyTree2.CollapseImage = "minus.gif" MyTree2.LeafImage = "webpage.gif"
'' Notice the indentation used to reprensent the hierarchy Set Node1 = MyTree2.CreateChild("script") Set SubNode1 = Node1.CreateChild("server") Set secSubNode1 = SubNode1.CreateChild("html") secSubNode1.CreateChild "asp" secSubNode1.CreateChild "php" secSubNode1.CreateChild "jsp"
Set SubNode2 = Node1.CreateChild("os") SubNode2.CreateChild "winnt" SubNode2.CreateChild "win2000"