Private Sub Treefiles_neuesprojekt_MouseUp(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.MouseEventArgs) Handles _
      Treefiles_neuesprojekt.MouseUp
        'Rechte Maustaste auswerten
        If (e.Button = Windows.Forms.MouseButtons.Right) Then
            If Not Treefiles_neuesprojekt.SelectedNode.Index < 0 Then
                Dim x, y As Integer
                x = e.X
                y = e.Y
                Treefiles_ContextMenu.Show(Treefiles_neuesprojekt, x, y)
            End If
        End If
    End Sub