按代码突出显示treeviw节点中的文本

Question

我在VB 10中有一个简单的函数，它在树视图的所有节点中搜索字符串;它工作，但在使用找到的字符串扩展节点后，同一项目的图标将更改为“已选择”，但文本未突出显示，我不明白为什么......

Public Sub SearchInTV(TV As TreeView, strSearch As String)
    Dim Nd() As TreeNode

    Nd = TV.Nodes.Find(strSearch, True)
    If Nd.Count > 0 Then
        Nd(0).EnsureVisible()
        TV.SelectedNode = Nd(0)
    End If
End Sub