此主题相关图片如下:目录树问题.png

请教:
Dim tr As WinForm.TreeView
tr =
Forms("窗口1").Controls("TreeView1")
tr.Nodes(0).IconFile =
"C:\Icons\Clone.ico"
和
For Each nd As WinForm.TreeNode In tr.AllNodes
tr.Nodes(0).ic
Next
iconfile设置是要么都加,要么都不加。
论坛有人做到了http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=48066&skin=0,请教如何实现的?学习学习