Treeview节点删除问题

[JunLing]

如果我要循环删除一些树的节点,应该怎么做?
因为 tvwUser.Nodes.Remove 后,MSComctlLib.Nodes集合对象已经变化,For循环就会出错
Dim MyNode As MSComctlLib.Node,Fors
For Each MyNode In tvwUser.Nodes
If right(MyNode.Key, 4) = "1234" Then
tvwUser.Nodes.Remove (MyNode.index)

End If
Next

[JunLing]

在提问之前我已经搜索了,没有找到相关问题,请高手指点

[foolishtiger]

Dim lngIndex as Long
For lngIndex= tvwUser.Nodes.Count to 1 step -1
If right(tvwUser.Nodes(lngIndex).Key, 4) = "1234" Then
tvwUser.Nodes.Remove (MyNode.index)
End If
Next