Access Treeview tree node code one

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", "Item No. Data Maintenance", "k1")
Set ndeindex = TreeView0.Nodes.Add(, , "b", "Hour Data", "k1")
Set ndeindex = TreeView0.Nodes.Add(" b", tvwChild, "b1", "Observation data query", "k1")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b2", "Working hours query (by product number)", "k1 ")
Set ndeindex = TreeView0.Nodes.Add("b", tvwChild, "b3", "hours query (according to other conditions) ", "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