有关树型控件的问题

Question

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Static i As Integer
    Dim node1 As MSComctlLib.Node
    i = 0
    Set node1 = Node
    Do While TypeName(node1) = "INode"
        i = i + 1
        If TypeName(node1.Parent) = "INode" Then
            Set node1 = node1.Parent
        Else
            Set node1 = Nothing
        End If
    Loop
    debug.print i  
End Sub