Private Sub MyTreeview_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles MyTreeview.MouseUp
        If e.Button = MouseButtons.Right Then
            For Each node As TreeNode In MyForm.MyTreeview.Nodes
                If e.X >= node.Bounds.Left And e.X <= node.Bounds.Right Then _
                  'angeklickter Bereich liegtim Bereich des Knoten
                    If e.Y <= node.Bounds.Bottom And e.Y >= node.Bounds.Top _
                    Then 'angeklickter Bereich liegtim Bereich des Knoten
                        MyForm.MyTreeview.SelectedNode = _
                        MyForm.MyTreeview.Nodes(node.MyTreeview)
                        Exit For
                    Else
                        'Unterknoten durchlaufen
                        For Each subnode As TreeNode In node.Nodes
                            If e.Y <= subnode.Bounds.Bottom And e.Y >= _
                              subnode.Bounds.Top Then
                                MyForm.MyTreeview.SelectedNode = _
                                MyForm.MyTreeview.Nodes(node.Index).Nodes( _
                                subnode.Index)
                                Exit For
                            End If
                        Next
                    End If
                End If
            Next
        End If
    End Sub