Private Sub Form_Load()Dim nd As NodeSet nd = TreeView1.Nodes.Add(, , "root", "1", 1)nd.Expanded = TrueSet nd = TreeView1.Nodes.Add("root", tvwChild, , "2", 2)nd.Expanded = TrueSet nd = TreeView1.Nodes.Add(, 0, "allgoods", "3", 2)nd.Expanded = TrueSet nd = TreeView1.Nodes.Add("allgoods", tvwChild, "... |