Class MyListView : Inherits ListView
    Const WM_LBUTTONDOWN As Int32 = &H201
    Const WM_RBUTTONDOWN As Int32 = &H204
    Public DoNotSelect As Boolean
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_LBUTTONDOWN OrElse m.Msg = WM_RBUTTONDOWN Then
            If DoNotSelect Then Return
        End If
        MyBase.WndProc(m)
    End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
' ...
#End Region
    Dim WithEvents l As New MyListView
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        l.View = View.Details
        l.Columns.Add("Col", 100, HorizontalAlignment.Center)
        For a As Integer = 0 To 10
            l.Items.Add(a)
        Next
        l.Parent = Me
    End Sub
        Private Sub l_MouseMove(ByVal sender As Object, ByVal e As _
          System.Windows.Forms.MouseEventArgs) Handles l.MouseMove
        Dim o As ListViewItem = Me.l.GetItemAt(e.X, e.Y)
        If Not o Is Nothing Then
            l.DoNotSelect = (o.Index = 2)
        End If
    End Sub
End Class