主题：如何展开节点

间接展开：

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Text.IndexOf("液晶电视") >= 0 Then

        trv.Selectednode = nd
        Exit For
    End If
Next