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

Private Sub ObjectTreeView_nodeClick(ByVal node As node)

End Sub

Private Sub Cmd_Search_Click()

SearchValue = Txt_Search.Text
For i = 1 To ObjectTreeView.nodes.Count
ObjectTreeView.nodes(i).Expanded = True
    If RegExpTest(SearchValue, ObjectTreeView.nodes(i)) Then
        ObjectTreeView.nodes(i).Selected
    End If
Next

End Sub

Public 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 = RetStr
End Function

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