VB中带复选框的TreeView问题请教

我的复选框是通过tv.Checkboxes = True添加的，tv有四层，
问题1、复选框与节点焦点不同步？
问题2、选中父节点怎么同时选中所有子节点（取消选中部分子节点则同时也取消选中父节点）？
请各位达人赐教，谢谢！

---

已解决第一个问题：
Private Sub tvCustomer_NodeCheck(ByVal Node As MSComctlLib.Node)
      Node.Selected = True
      Node.Checked = Not Node.Checked
End Sub

---

写个sub xx，进node
遍历子节点，call xx (子节点）
子节点。check = node。check
end sub

---

问题2、选中父节点同时设所有子节点.checked=True
      取消选中部分子节点,判断:如果所有子节点.checked=True则父节点.checked=Ture,否则父节点.checked=False~~~~

---

引用

问题2、选中父节点同时设所有子节点.checked=True
      取消选中部分子节点,判断:如果所有子节点.checked=True则父节点.checked=Ture,否则父节点.checked=False~~~~

我这里的节点是从数据库里取数的，不定量，代码怎么实现？
简单的说，就是如何选中所有子节点？如何判断子节点都选中。。。。

---

'树形节点遍历过程
Private Sub CheckAllChildNodes(ByVal treeNode As treeNode, ByVal nodeChecked As Boolean)
    '递归选中所有子节点
    Dim node As treeNode '声明节点
    For Each node In treeNode.Nodes '遍历子节点
        node.Checked = nodeChecked '选中