+/- en los nodos de nivel1 treeview

[lop7]

coloca esto en un form nuevo y agrega un control treview
y en sus propiedades activa "singlesel"


Private Sub Form_Load()
Dim nodX As Node
Dim I As Integer
TreeView1.BorderStyle = vbFixedSingle ' Muestra el borde.

' Crea un nodo raíz.
Set nodX = TreeView1.Nodes.Add(, , "raíz", "Raíz")

For I = 1 To 5 ' Agrega 5 nodos secundarios.
Set nodX = TreeView1.Nodes.Add(I, tvwChild, , "Nodo " & CStr(I))
Next I
End Sub

Private Sub Form_Click()
Dim I As Integer
For I = 1 To TreeView1.Nodes.Count
' Expande todos los nodos.
TreeView1.Nodes(I).Expanded = True
Next I
End Sub

espero te sirva ok

saludos..
nos vmos...