Public Class MouseLessListview
    Inherits ListView
    Private Const WM_LBUTTONDOWN As Integer = &H201
    Private Const WM_LBUTTONUP As Integer = &H202
    Private Const WM_MOUSEMOVE As Integer = &H200
    Private Const WM_RBUTTONDOWN As Integer = &H204
    Private Const WM_MBUTTONDOWN As Integer = &H207
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        ' ButtonDown Links Rechts Und Mitte abfangen
        If m.Msg = WM_LBUTTONDOWN Or m.Msg = WM_RBUTTONDOWN Or m.Msg = _
          WM_MBUTTONDOWN Then
 
        Else
            'Alle anderen Messages weiterreichen
            MyBase.WndProc(m)
        End If
        ' Mit MouseMove den Focus holen, damit man mit dem Mausrad scrollen kann
        If m.Msg = WM_MOUSEMOVE Then
            Me.Focus()
            MyBase.WndProc(m)
        End If
 
    End Sub
 
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus