Recorrer TreeView en forma recursiva

Por medio de la siguiente función se puede recorrer todos los nodos de un TreeView

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 función sería

Private Sub Page_Load(ByVal src As Object, ByVal e As EventArgs) Handles MyBase.Init
     RecorrerTreeView(treeMenu.Nodes)
end sub

 Hasta la próxima