主题：目录树中的模糊查找如何实现？

呵呵，不明白你在干什么，居然提出这样的问题。

正确的：

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.CollapseAll
If e.Form.controls("textbox1").text=Nothing
    tv.CollapseAll
Else
    For Each nd As winform.treenode In tv.allnodes
        If nd.text.Indexof(e.Form.controls("textbox1").text) >= 0 Then
            tv.Selectednode=nd
        End If
    Next
End If