Treeview节点选择问题，在线急等，实现给分。50分。

Question

如何实现
当选中一节点时（在前面打上挑），
除了该节点外，其它节点全部放弃选择（前面的挑取消）。
包括该节点的子节点及父节点。如下图：
□分类码
  |--□A 
      |--□A1 
      |--□A2 
      |--□A3
  |--□B 
      |--□B1 
      |--□B2 
      |--□B3当选中A1节点时，
除了A1外，
其它节点（分类码；A、A2、A3；B、B1、B2、B3）都放弃选中！！
如何实现！！！

Answer 1

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
    Dim i As Long
    If Not Node.Checked Then
        For i = 1 To TreeView1.Nodes.Count
            TreeView1.Nodes(i).Checked = False
        Next
    End If
End Sub

Answer 2

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
    Dim i As Long
    If Node.Checked Then
        For i = 1 To TreeView1.Nodes.Count
            TreeView1.Nodes(i).Checked = False
        Next
    End If
End Sub
==================
实现了。
结贴！！！