Private Sub treeview0_updated (Code as Integer)
Dim Ndeindex as Node
Set Ndeindex = TreeView0.Nodes.Add (,, "a", "Basic Data", "K1")
Set Ndeindex = TreeView0.Nodes.Add ("A", Tvwchild, "A1", "Product Data Maintenance", "K1")
Set Ndeindex = TreeView0.Nodes.Add (,, "B", "Work material", "K1")
Set Ndeindex = TREEVIEW0.NODES.ADD ("b", Tvwchild, "B1", "Observation data query", "K1")
Set Ndeindex = TREEVIEW0.NODES.ADD ("b", Tvwchild, "B2", "Work inquiry (by product number)", "K1")
Set Ndeindex = TREEVIEW0.NODES.ADD ("b", Tvwchild, "B3", "Work inquiry (depending on other criteria)", "K1")
Set Ndeindex = TreeView0.Nodes.Add (,, "C", "Capacity Mode", "K1")
Set Ndeindex = TREEVIEW0.NODES.ADD ("C", Tvwchild, "C1", "FCST capacity Calculation", "K1")
Set Ndeindex = TREEVIEW0.NODES.ADD ("C", Tvwchild, "C2", "Capacity Trial", "K1")
Set Ndeindex = TreeView0.Nodes.Add (,, "D", "Cost mode", "K1")
End Sub
Access TreeView tree Node Code one