你可以这样避免死循环的:
If e.node.name = "anc" Then If e.node.checked = True Then e.node.checked = False End IfEnd If