'// -----
	Dim ChildNodes as new System.Collections.Generic.List(Of TreeNode)
	Dim CurrentChildNodeIndex As Integer = -1
 
	'// Search the ChildNodes
	Private Sub GetChildNodes( ByVal CurrentNodes As TreeNodeCollection )
		For Each CurrentNode As TreeNode In CurrentNodes
			If CurrentNode.Tag Is Nothing OrElse (Not CurrentNode.Tag.Equals("Root")) _
  Then 
				CurrentNode.Tag = me.ChildNodes.Count
				ChildNodes.Add (CurrentNode)
			End If
			GetChildNodes(CurrentNode.Nodes)
		Next
	End Sub
 
	'// Fill the TreeView (Example) and Scan Nodes 
	Sub Button4Click(ByVal sender As Object, ByVal e As EventArgs)
	    Dim RootNodes As TreeNode () = { _ 
	    								 New TreeNode("RootNode1"), _
	     								 New TreeNode("RootNode2"), _ 
	     								 New TreeNode("RootNode3") _ 
	     								}
		me.treeView1.Nodes.Clear()
		For a As Integer = 0 To 10 
			For Each CurrentRootNode As TreeNode In RootNodes
				CurrentRootNode.Tag = "Root"
				CurrentRootNode.Nodes.Add ( New TreeNode("ChildNode" + a.tostring()) )				
			Next
		Next
		Me.treeView1.Nodes.AddRange (RootNodes)
		GetChildNodes(me.treeView1.Nodes)
	End Sub
 
	'// Select PrevNode
	Sub Button5Click(ByVal sender As Object, ByVal e As EventArgs)
		CurrentChildNodeIndex -=1
		If CurrentChildNodeIndex < 0 Then
			CurrentChildNodeIndex = 0
		End If
		me.treeView1.SelectedNode = me.ChildNodes(CurrentChildNodeIndex)
		Me.treeView1.Focus()
	End Sub
 
	'// Select NextNode
	Sub Button6Click(ByVal sender As Object, ByVal e As EventArgs)
		CurrentChildNodeIndex +=1
		me.treeView1.SelectedNode = me.ChildNodes(CurrentChildNodeIndex)
		If CurrentChildNodeIndex >= me.ChildNodes.Count - 1 Then
			CurrentChildNodeIndex = 0
		End If
		Me.treeView1.Focus()
	End Sub
 
	'// Set CurrentChildNodeIndex by mouseclick
	Sub TreeView1AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs)
		If not e.Action = TreeViewAction.ByMouse orelse _ 
			(e.Node.Tag Is Nothing OrElse e.Node.Tag.Equals ("Root")) Then
			Exit Sub
		Else
			me.CurrentChildNodeIndex = CType(e.Node.Tag, Int32)
		End If
	End Sub
	'// -----