Public Class Form1
  Dim WithEvents lvMenu As New ContextMenuStrip
 
  Private Sub lvMenu_Opening(ByVal sender As Object, _
    ByVal e As System.ComponentModel.CancelEventArgs) Handles lvMenu.Opening
 
    ' Anzeige des Kontextmenüs unterbinden
    e.Cancel = True
 
    ' Mausposition ermitteln
    Dim item As ListViewHitTestInfo
    item = ListView1.HitTest(Control.MousePosition)
    If IsNothing(item.Item) Then
      ' Prüfen, ob sich die Maus in er Headerzeile befindet
      If ListView1.PointToClient(Control.MousePosition).Y < 25 Then
        ' Rechtsklick in den ColumnHeader-Bereich
        MsgBox("Rechtsklick im ColumnHeader-Bereich")
      End If
    End If
  End Sub
 
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de