Nodos en treeview

Hola Carlos, te paso el codigo, espero te sirva

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim oNodo As TreeNode
Dim iCont As Integer = 0
For Each oNodo In Treeview1.Nodes
ContarNodos(oNodo, iCont)
Next
MessageBox.Show(iCont)
End Sub

Private Sub ContarNodos(ByVal oNodo As TreeNode, ByRef iCont As
Integer)
If oNodo.Nodes.Count = 0 Then
iCont = iCont + 1
Else
iCont = iCont + 1
Dim n As TreeNode
For Each n In oNodo.Nodes
ContarNodos(n, iCont)
Next n
End If
End Sub

Saludos,
Aldo Teixeira
Lima - Perú