主题：目录树节点收缩问题

Dim p = e.node.ParentNode
If p Is Nothing Then p = e.sender
For Each n As WinForm.TreeNode In p.Nodes
    If n.name <> e.Node.name Then
        n.CollapseAll
    End If
Next

e.node.ExpandAll