VB6.0 treeview中checkbox 如何确保单选 即选中一个子节点时其他不选中

VB6.0 treeview中checkbox 怎么确保单选 即选中一个子节点时其他不选中
如题

[解决办法]

VB code

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)    For i = 1 To TreeView1.Nodes.Count        TreeView1.Nodes(i).Checked = False    Next i    Node.Checked = Not Node.CheckedEnd Sub