高分求救树的问题，up者有分。

Question

Dim curNode as Node
Set curNode =treeView1.SelectedItem
Set curNode.Parent.Checked = False
If curNode.Children > 0 Then
   Set curNode = curNode.Child
   For i = 1 To treeView1.Children
     curNode.Checked = True
     Set curNode = curNode.Next
   Next i
End If

Answer 1

如果你层次不深的话，穷举也很快的。记下parent，然后便利子节点。---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey