主题：[求助]单击目录树复选框，选中全部同级节点，不是子节点。

此主题相关图片如下：目录树.jpg

如图：单击目录树复选框的“全选”节点，选中全部同级节点，没有子节点。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes
    If e.node.Index=0
        If e.node.Checked = True
            nd.Checked = True
        End If
    End If
Next

上面代码运行后，程序自动退出。

请各位大师给指点。