'// 
	Private Sub TreeView1AfterSelect(ByVal sender As Object, ByVal e As _
  TreeViewEventArgs)
		If not e.Action = Windows.Forms.TreeViewAction.Unknown Then 
			debug.WriteLine ("afterselect: " + e.Node.Text)
		End If
	End Sub
 
	Private Sub TreeView1MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
		If e.Button = Windows.Forms.MouseButtons.Right Then 
			Dim tnOld as TreeNode = CType(sender, treeview).SelectedNode 
			Dim tnCurrent As TreeNode = CType(sender, treeview).GetNodeAt (e.X, e.Y)
			If not tnCurrent Is Nothing Then 
				CType(sender, treeview).SelectedNode = tnCurrent
				Me.contextMenuStrip1.Tag = tnOld
			End If
		End If
	End Sub
 
	Private Sub ContextMenuStrip1Closed(ByVal sender As Object, ByVal e As _
  ToolStripDropDownClosedEventArgs)
		If Not Me.contextMenuStrip1.Tag Is Nothing Then 
			dim tnCurrent as TreeNode = ctype(Me.contextMenuStrip1.Tag, treenode)
			dim tnOld as treenode = tnCurrent.TreeView.SelectedNode
			tnCurrent.TreeView.SelectedNode = CType(Me.contextMenuStrip1.Tag, treenode) 
			Me.contextMenuStrip1.Tag = tnOld
		End If
	End Sub
 
	Private Sub A_ToolStripMenuItemClick(ByVal sender As Object, ByVal e As _
  EventArgs)
		dim tnOld as TreeNode = ctype(Me.contextMenuStrip1.Tag, treenode)
		debug.WriteLine ("rightclick on: " + tnOld.Text)
	End Sub
 
	Private Sub B_ToolStripMenuItemClick(ByVal sender As Object, ByVal e As _
  EventArgs)
		'// ..
	End Sub
 
	Private Sub C_ToolStripMenuItemClick(ByVal sender As Object, ByVal e As _
  EventArgs)
		'// ..
	End Sub
	'//