求一遍历算法!

[diropener]

一个树形控件id="treeIceCream",里面全是CheckBox子控件.我想在页面显示时就将所有被选中的CheckBox子控件记录下来,包括子控件的子控件,应该怎样写?写在Page_load里面!

[asusharp]

sub Page_Load
ShowChecked(treeIceCream.Nodes)
End Sub

Sub ShowChecked(colNodes as TreeNodeCollection)
Dim tnNode as TreeNode
Dim str as String

For each tnNode in colNodes
if tnNode.Checked=True then
str&='<li>'&tnNode.Text
end if
ShowChecked(tnNode.Nodes)
Next
End sub

[diropener]

多谢,基本知道怎么写了!