Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "d", "Menu del Dia")
Set nodX = TreeView1.Nodes.Add(, , "dd", "PlatosTipicos")
Set nodX = TreeView1.Nodes.Add(, , "ddd", "Restaurantes")
Set nodX = TreeView1.Nodes.Add("d", tvwChild, "d89", "Conductores")
Set nodX = TreeView1.Nodes.Add("d", tvwChild, "d90", "Viajes")
' Crea un arbol de Dependencia d89
Set nodX = TreeView1.Nodes.Add("d89", tvwChild, "Deudas", "John")
Set nodX = TreeView1.Nodes.Add("d89", tvwChild, , "Brent")
Set nodX = TreeView1.Nodes.Add("d89", tvwChild, , "Eric")
Set nodX = TreeView1.Nodes.Add("d89", tvwChild, , "Ian")
For JJ = 1 To 8 Step 1
Set nodX = TreeView1.Nodes.Add("ddd", tvwChild, , "El Milagro # " & Str(JJ))
Next JJ
Set nodX = TreeView1.Nodes.Add("ddd", tvwChild, , "Salir")
For J = 1 To 6 Step 1
Set nodX = TreeView1.Nodes.Add("d90", tvwChild, , "9191" & Str(J))
Next J
For JJ = 1 To 6 Step 1
Set nodX = TreeView1.Nodes.Add("Deudas", tvwChild, , "9191" & Str(JJ))
Next JJ
TreeView1.LabelEdit = tvwManual