请高人指点vb6下遍历treeview的有关问题

请高人指点vb6下遍历treeview的问题
Call TraverseNode(Treeview.NodeS, tkey) '调用递归
Public Sub TraverseNode(nodelist As NodeS, tkey As Double)  '
  Dim nodex As Node
  For Each nodex In nodelist
    If nodex.Key = "P" & Trim(tkey) Then '相同则展开
        nodex.Selected = True
        Exit Sub
    End If
    If nodex.children = 0 Then '判断子节点则调用
    Else
    Call TraverseNode(？？？, tkey)'？？？处不知道该如何传值
    End If
 Next
End Sub
难道从一开始我就传错值了吗？请高人指点，十万火急
[解决办法]
Treeview 控件的 Nodes 是包含各层父和子节点的。不要用分层的思路去处理。