Seleccionar Nodo de Treeview

[jack06]

Hola!

Revísate este ejemplo: http://www.mundoprogramacion.com/vb/ejemplos/treeview.htm

Seguro te servirá... 

Saludos!

Con lo que mandaste y con lo que tenia mas o menos me quedo asi:

Código [Seleccionar] Expandir

Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)

    Dim s As String
   
    Select Case Node.Text
   
        Case Node.Root
            Exit Sub
           
    End Select
   
    s = Node.Text
   
    If Node.Children > 0 Then
        s = s & ", tiene " & Node.Children & " hijos"
    Else
        Exit Sub
    End If
   
    MsgBox s
   
End Sub

Allí si me funciona como quiero, no se si estará bien el CODE pero funciona, gracias por tu tiempo amigo.