Private Sub TreeView0_Updated(Code As Integer)
Dim ndeindex As Node
Set ndeindex = TreeView0.Nodes.Add(, , "a", "基礎資料 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("a", tvwChild, "a1", "品號資料 維護 ", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "b", "工時資料 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b1", "觀測資料 查詢 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b2", "工時查詢 (依品號) ", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b3", "工時查詢 (依其它條件) ", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "c", "產能模式 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("c", tvwChild, "c1", "FCST產能 計算 ", "k1")
Set ndeindex = TreeView0.Nodes.Add("c", tvwChild, "c2", "產能試算 ", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "d", "成本模式 ", "k1")
End Sub

Access Treeview樹節點代碼一