主题：怎么统计复选框已选中的子节点数量？

再改一下代码：

Dim pd As WinForm.TreeNode = e.node.ParentNode
Do While pd IsNot Nothing
    Dim cnt As Integer
    For Each cd As WinForm.TreeNode In pd.Nodes
        If cd.Checked Then
            cnt = cnt +1
        End If
    Next
    If cnt > 0 Then
        pd.Checked = True
    Else
        pd.Checked = False
    End If
    pd = pd.ParentNode
Loop

呵呵，忘记了，我用的是2014正式版，明天可以下载。

你复制我三楼的代码到aftercheckednode事件即可。