Private Function RecurseNodes(ByVal Node As TreeNodeCollection)
For Each tn As TreeNode In Node
MsgBox(tn.Text)
RecurseNodes(tn.Nodes)
Next tn
End Function
///
Private Function RecurseNodes(ByVal Node As TreeNodeCollection)
For Each tn As TreeNode In Node
MsgBox(tn.Text)
RecurseNodes(tn.Nodes)
Next tn
End Function