Dim c As New ContextMenu(New MenuItem() {New MenuItem("eintrag1"), New _
      MenuItem("eintrag2"), New MenuItem("eintrag2")})
    Private Sub ListView1_ColumnClick_RButton(ByVal CurPos As _
    System.Drawing.Point) Handles ListView1.ColumnClick_RButton
        '// MessageBox.Show("rechts-klick auf die columns-header")
        Me.ListView1.ContextMenu = c
    End Sub
    Private Sub ListView1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
        If e.Button = MouseButtons.Right Then
            Me.ListView1.ContextMenu = New ContextMenu
        End If
    End Sub