感谢CloneCenter:
下面修改后的代码,可以运行.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetChildText(TreeView.Nodes(0))
End Sub
Private Function GetChildText(ByVal node As TreeNode)
Dim sb As New System.Text.StringBuilder()
Dim child As TreeNode
For Each child In node.Nodes
If child.Text = CmbSelectedBinderName.Text Then
child.Expand()
'EnsureVisible
child.EnsureVisible()
Exit For
End If
GetChildText(child)
Next child