主题：目录树勾选

For Each nd As WinForm.TreeNode In e.node.AllNodes  '同步子节点选中状态
    If nd.FullPath.StartsWith(e.node.FullPath) Then
        nd.Checked = e.node.Checked
    End If
Next
If e.node.Checked = False Then '如果本次操作为清除节点选中状态
    Dim pd As WinForm.TreeNode = e.node.ParentNode '获取父节点
    Do While pd IsNot Nothing
        pd.Checked = False '清除父节点选中状态
        pd  = pd.ParentNode '继续获取上一层级的父节点
    Loop
End If

注意点击勾选的时候，不要点的太快，变成了双击。这个控件的双击勾选是有问题的

有什么解决方案吗？还是只能这样？

如果是双击引起的，没有办法解决，这个是目录树控件底层的问题，是.net本身的bug。