Private Sub myListView_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles myListView.MouseDown
 
        If e.Button <> Windows.Forms.MouseButtons.Right Then Return
 
        Dim mp As Point = e.Location
        Dim hti As ListViewHitTestInfo = myListView.HitTest(mp)
        Dim oitem As ListViewItem = hti.Item
        Dim ogroup As ListViewGroup = Nothing
 
        If hti.Location = ListViewHitTestLocations.None Or hti.Location = _
          ListViewHitTestLocations.Label Then
            For i As Integer = 1 To 10
                If hti.Item IsNot Nothing Then
                    ogroup = hti.Item.Group
                    Debug.WriteLine("Group is: " & ogroup.Header & " item is: " _
                      & If(oitem Is Nothing, "[none]", oitem.Text))
                    Exit For
                End If
                mp.Offset(0, 3)
                hti = myListView.HitTest(mp)
            Next
 
            If ogroup Is Nothing Then Return
 
            Dim tmi As ToolStripItem
            tmi = ContextMenuStrip1.Items("DeleteGroupToolStripMenuItem")
            tmi.Text = "Delete Group " & ogroup.Header
            tmi = ContextMenuStrip1.Items("DeleteItemToolStripMenuItem")
            tmi.Visible = oitem IsNot Nothing
            mp = myListView.PointToScreen(mp)
            ContextMenuStrip1.Show(mp)
 
        End If
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist