加判断
For Each nd1 As WinForm.TreeNode In e.Sender.AllNodes '清除子节点选中状态 If nd1.Text <> "显示全部" then nd1.Checked = FalseNext