简单递归TreeView

	Private Sub TreeView1SelectedNode(ByVal sName As String, ByRef TreeViewNodes As TreeNodeCollection)
		For Each TempNode As TreeNode In TreeViewNodes
			If 0 = String.Compare(sName, TempNode.Name, StringComparison.Ordinal) Then
				TreeView1.SelectedNode = TempNode
				Exit Sub
			End If
			If 0 < TempNode.Nodes.Count Then
				TreeView1SelectedNode(sName, TempNode.Nodes)
			End If
		Next
	End Sub

调用

TreeView1SelectedNode(sName, TreeView1.Nodes)