Private Sub RecorrerTreeView(ByRef Nodos As TreeNodeCollection)
For Each Nodo As TreeNode In Nodos
If Nodo.ChildNodes.Count = 0 Then
Nodo.Text = "Hijo"
Else
Nodo.Text = "Padre"
RecorrerTreeView(Nodo.ChildNodes)
End If
Next
End Sub
La llamada a la funcin sera
Private Sub Page_Load(ByVal src As Object, ByVal e As EventArgs) Handles MyBase.Init
RecorrerTreeView(treeMenu.Nodes)
end sub