对Treeview查询节点后，自动点击到此节点上。
代码运行到：ObjectTreeView.nodes(i).Selected就报错了，
我想实现的功能是找到此节点后将光标落在此节点或做一个对节点的点击操作。
但是用ObjectTreeView_nodeClick "ObjectTreeView.nodes(i))"也无法实现，求高人指点。

Private Sub ObjectTreeView_nodeClick(ByVal node As node)

End Sub

VB code

Private Sub Cmd_Search_Click()SearchValue = Txt_Search.TextFor i = 1 To ObjectTreeView.nodes.CountObjectTreeView.nodes(i).Expanded = True    If RegExpTest(SearchValue, ObjectTreeView.nodes(i)) Then        ObjectTreeView.nodes(i).Selected    End IfNextEnd SubPublic Function RegExpTest(ByVal patrn As String, ByVal strng As String)    On Error Resume Next    Dim regEx    Set regEx = CreateObject("VBScript.RegExp")    regEx.Pattern = patrn    regEx.IgnoreCase = True    regEx.Global = True    RetStr = regEx.Test(strng)    RegExpTest = RetStrEnd Function

[解决办法]
ObjectTreeView.nodes(i).Selected=true