Private Sub Button2Click(ByVal sender As Object, ByVal e As EventArgs)
		'// PrevVisibleNode
		If Me.treeView1.SelectedNode Is Me.treeView1.Nodes(0) Then
			me.treeView1.SelectedNode = me.treeView1.Nodes (me.treeView1.Nodes.Count - 1)		
		Else
			Me.treeView1.SelectedNode = Me.treeView1.SelectedNode.PrevVisibleNode
		End If
		Me.treeView1.Focus()
	End Sub
 
	Private Sub Button3Click(ByVal sender As Object, ByVal e As EventArgs)
		'// NextVisibleNode
		If Me.treeView1.SelectedNode.Nodes.Count > 0 AndAlso Not _
  Me.treeView1.SelectedNode.IsExpanded Then
			Me.treeView1.SelectedNode.Expand()
		End If
		Me.treeView1.SelectedNode = Me.treeView1.SelectedNode.NextVisibleNode
		Me.treeView1.Focus()
	End Sub

	Private Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		'// PrintNodesOfTreeNode
		Me.treeView1.Focus()
		Me.PrintNodesOfTreeNode(Me.treeView1.Nodes)
	End Sub
 
	Private Sub PrintNodesOfTreeNode(ByVal CurrentNodes As TreeNodeCollection)
		For Each CurrentNode As TreeNode In CurrentNodes
			System.Diagnostics.Debug.WriteLine("CurrentNode: " + CurrentNode.Text)
			Me.treeView1.SelectedNode = CurrentNode
			Application.DoEvents()
			System.Threading.Thread.Sleep(500)
			PrintNodesOfTreeNode(CurrentNode.Nodes)
		Next
	End Sub