Private Sub DGV_CellContextMenuStripNeeded(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.DataGridViewCellContextMenuStripNeededEventArgs) _
      Handles DGV.CellContextMenuStripNeeded
        If e.ColumnIndex > -1 And e.RowIndex = -1 Then
            cms.Items.Clear()
            Dim cn As String = DGV.Columns(e.ColumnIndex).Name
            Dim nmi As New ToolStripMenuItem("Delete " & cn)
            nmi.Tag = e.ColumnIndex
            AddHandler nmi.Click, AddressOf ToolStripMenuItem_Click
            cms.Items.Add(nmi)
            e.ContextMenuStrip = cms
        End If
    End Sub

     Private Sub cms_Opening(ByVal sender As Object, ByVal e As _
       System.ComponentModel.CancelEventArgs) Handles cms.Opening
        Dim mp As Point = DGV.PointToClient(MousePosition)
        Dim hti As DataGridView.HitTestInfo = DGV.HitTest(mp.X, mp.Y)
        If hti.Type = DataGridViewHitTestType.ColumnHeader Then
            cms.Items.Clear()
            Dim cn As String = DGV.Columns(hti.ColumnIndex).Name
            Dim nmi As New ToolStripMenuItem("Delete " & cn)
            nmi.Tag = hti.ColumnIndex
            AddHandler nmi.Click, AddressOf ToolStripMenuItem_Click
            cms.Items.Add(nmi)
        Else
            e.Cancel = True
        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