Private Sub trvInventory_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles trvInventory.MouseDown
        Try
            If e.Button = Windows.Forms.MouseButtons.Right Then
                ' Bei Rechtsklick, PopUp-Menü anzeigen
                ' Eintrag ermitteln ...
                Dim selNode As TreeNode = trvInventory.GetNodeAt(e.X, e.Y)
                If selNode IsNot Nothing Then
                    ' ... selektieren ...
                    trvInventory.SelectedNode = selNode
 
                    Dim cms As New ContextMenuStrip()
 
                    cms.Items.Add("Bearbeiten...")
                    cms.Items.Add("Drucken...")
                    cms.Show(trvInventory, e.X, e.Y)
                End If
            End If
        Catch ex As Exception
 
        End Try
 
    End Sub