treeview遍历，在线等

Question

有一个treeview  
再有一给textox  
要查询到与textbox的内容在哪一个节点  ，然后展开  
请问怎么遍历？  
   If  nodex.Children  >  0  Then  
           nodex  =  nodex.Child  
   Else  
       Do  Until  (nodex  =  Nothing)    ‘判断子节点是否遍历完，程序报错，不知道是不是不可以这么写  
         If  nodex.Text  =  Text1.Text  Then  
             nodex.Expanded  =  True  
         Else  
             nodex  =  nodex.Next  
         End  If  
       Loop  
 
遍历完应该怎么写？有高手指点吗？谢谢!  

Answer 1

Dim nodex As Node
For Each nodex In TreeView1.Nodes
    If nodex.Text = Me.Text1.Text Then
        nodex.Selected = True
        nodex.Expanded = True
        TreeView1.SetFocus
    End If
Next

Answer 2

报错
：type dismatch 的是什么原因？

Answer 3

在For Each nodex In TreeView1.Nodes报错

Answer 4

换成以下试试
Dim nodx As MSComctlLib.Node