Private Sub Button1_Click(sender as object, e as eventargs)
    SearchNode(tv.Node(0))
end Sub
 
Private Function SearchNode(tn as TreeNode)
    for x as integer = 0 to tn.nodes.Count -1
        SearchNode(tn.Nodes(x))
    next node
end Function