AfterExpandNode事件:
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each Node As WinForm.TreeView In tr.AllNodes If Node.Name <> e.Node.Name Then Node.Collapsed = True End If Next