vb6 遍历treeview所有节点

已经生成的目录，需要遍历一次，查找出需要的那个点并指向这个节点，包括遍历子节点，求高人指点 用递归的算法 递归会么，大致伪代码：

sub findroot()
    for each node in treeview.nodes
        findchild node
    next
end sub

sub findchild(parentnode)
    for each node in parentnode.nodes
        findchild node
    next
    'add code here to process current node
end sub

补充：VB ,  基础类