AfterCheckNode事件
Dim trv As WinForm.TreeView = e.SenderDim nd As WinForm.TreeNodeFor Each nd In e.node.allNodes '清除子节点的选中标记 nd.Checked = e.Node.CheckedNext