程序中,怎么打开treeiew并选中节点

程序中,如何打开treeiew并选中节点?
节构:
+--1
      |
      |__20
      |__21
控件:按钮\文本框

要求单击按钮,文本框中的文本为节点的名称,如21.并且treeiew展开到相应节点.
请大侠给段代码,谢谢!~~~~~~

------解决方案--------------------
按钮事件中加入：
dim i as integer
For i = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes.Item(i).Text = text1.text Then
TreeView1.Nodes.Item(i).Expanded = True
Exit For
End If
Next

' ' ' ' ' ' ' ' '
应该可以，我没有试，你自己试一下
------解决方案--------------------
dim nod as node

for each nod in treeview1.nodes
if nod.text=text1.text then
set treeview1.selecteditem=nod
'//也可这么写
'treeview1.nodes(nod.key).selected=true
exit for
endif
next