1、目录树控件AfterCheckNode事件代码:
For Each nd As WinForm.TreeNode In e.Node.AllNodes nd.Checked = e.Node.CheckedNext