TreeView的代码怎样写？（mo+vb)_(高手请进）

<P><IMG src="http://www.gisempire.com/bbs/Skins/default/topicface/face2.gif">   比如：将map1.Layers(0)中的records的"name"字段 作为子结点加入Treeview1</P>
<P>               哪位高手能给出代码,  SOS!                    <IMG src="http://www.gisempire.com/bbs/Skins/default/topicface/face999.gif"><IMG src="http://www.gisempire.com/bbs/Skins/default/topicface/face999.gif"></P>
<P>               </P>

<P>1、为树状浏览器控件添加节点和子节点

　　用ADD方法添加一个新节点到树状浏览器的NODES集合时，可以声明它是和已存在的节点所联系起来的。通常使用ADD方法，其语法如下：

　　Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
</P><P>各个参数的意义如下：

　　relationship 参数是通过关系节点参数与新节点连接的另一个节点；

　　relationship 参数可能是以下情况：

　　tvwlast--1；该节点置于所有其他的在relative中被命名的同一级别的节点的后面

　　tvwNext--2；该节点置于在relative中被命名节点的后面

　　tvwPrevius--3；该节点置于在relative中被命名的节点的前面

　　tvwChild--4；该节点成为在relative中被命名的节点的的子节点

　　下面是一个例子：

　　Dim node1,node2,node3,node4 as Node

　　set Node1=TreeView1.Nodes.Add

　　TreeView1.Nodes(1).text="node1"

　　TreeView1.Nodes(1).key="node1"

　　Set node2=treeview.nodes.add("node1",tvwChild,"node2")

　　TreeView1.Nodes(2).text="node2"

　　TreeView1.Nodes(2).key="node2"

　　依次插入节点即可。2、为节点插入图象

　　treeview1.node(3).image="leaf"

　　注意我们一般从imagelist中指定图象3、处理节点的点击，怎样才能知道树状浏览器的哪一个节点被点击了呢？可以用NodeClick事件:

　　public sub treeview1_nodeclick(byval node as comctllib.node)

　　text1.text="you click";node.text
</P>

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<P>总统好强！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<img src="http://www.gisempire.com/bbs/Skins/default/topicface/face16.gif">,强啊，谢谢！

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<img src="http://www.gisempire.com/bbs/Skins/default/topicface/face9.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face9.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face9.gif">  <FONT size=5>谢谢总统的关照，问题已经解决啦。<img src="http://www.gisempire.com/bbs/Skins/default/topicface/face16.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face16.gif"><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face16.gif"></FONT>