treeview

[fonchi]

Hola amigos:

Nuevamente por acá, les cuento. Estoy trabajando por vez primera con un treeview y no se mucho de el.
Este debiera tener la sgte estructura:

+Administración
|........................L .Cabiar Clave Adm.
|........................L .Cambiar Clave User.
|
+Menu (Para navegar a través de la aplcación)
..........L .Form1
..........L .Form2
..........L .Form3

Lo ideal es que me lo muestre así...Pero la realidad es esta:

|-Administración
|-Cabiar Clave Adm.
|-Cambiar Clave User.
|-Menu (Para navegar a través de la aplcación)
|-Form1
|-Form2
|-Form3


La idea tambien es que salga, la opcion para expandir o no el arbol.
Esto es lo que tengo en el Load del Formulario:


Private Sub Form_Load()
Me.Administrador.Visible = False
Me.Usuario.Visible = False
Me.MSHFlexGrid1.Visible = False
Dim nodx As Node
'...Creo Nodo Padre y sus Hijos/No Sé
Set nodx = TreeView1.Nodes.Add(, , "o", "Administración")
Set nodx = TreeView1.Nodes.Add("o", , "u", "Cambiar Clave Usuario")
Set nodx = TreeView1.Nodes.Add("o", , "a", "Cambiar Clave Administrador")
Set nodx = TreeView1.Nodes.Add(, , "M", "Menú")
Set nodx = TreeView1.Nodes.Add("M", , "Us", "Usuarios")
Set nodx = TreeView1.Nodes.Add("M", , "Lis", "Listar")
End Sub

Ya he Buscado si sale algo en las FAQ's y no encontre nada. Espero su ayuda.
Gracias, Salu2.

[seba123neo]

Hola, te falta decir si es padre o hijo y te falta la propiedad LineStyle...

Código vb:

Dim nodx As Node
'...Creo Nodo Padre y sus Hijos/No Sé
TreeView1.LineStyle = tvwRootLines
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "o", "Administración")
Set nodx = TreeView1.Nodes.Add("o", tvwChild, "u", "Cambiar Clave Usuario")
Set nodx = TreeView1.Nodes.Add("o", tvwChild, "a", "Cambiar Clave Administrador")
Set nodx = TreeView1.Nodes.Add(, tvwFirst, "M", "Menú")
Set nodx = TreeView1.Nodes.Add("M", tvwChild, "Us", "Usuarios")
Set nodx = TreeView1.Nodes.Add("M", tvwChild, "Lis", "Listar")
Set nodx = Nothing
 

saludos.

[fonchi]

Ok, muchas gracias por la respuesta.
Salu2.