Private Function CheckNode(ByVal e As Point, ByVal Node As _
  System.Windows.Forms.TreeNode) As Boolean
		CheckNode = False
		If e.Y <= Node.Bounds.Bottom And e.Y >= Node.Bounds.Top Then		  _
  'angeklickter Bereich liegtim Bereich des Knoten
			tvwMilestones.SelectedNode = tvwMilestones.Nodes(Node.Index)
			CheckNode = True
		Else
			'Unterknoten durchlaufen
			For Each SubNode As TreeNode In Node.Nodes
				CheckNode = CheckNode(e, SubNode)
			Next
		End If
	End Function
 
	Private Sub tvwMilestones_MouseUp(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles tvwMilestones.MouseUp
		If e.Button = MouseButtons.Right Then
			For Each Node As TreeNode In tvwMilestones.Nodes
				If e.X >= Node.Bounds.Left And e.X <= Node.Bounds.Right _
  Then				'angeklickter Bereich liegtim Bereich des Knoten
					If CheckNode(New Point(e.X, e.Y), Node) Then Exit For
				End If
			Next
		End If
 
		If Not tvwMilestones.SelectedNode Is Nothing Then Debug.WriteLine("Node '" & _
  tvwMilestones.SelectedNode.Text & "' Selected")
	End Sub

->MP<-