using System;
using System.Windows.Forms;
 
    class MyListView : ListView {
      public event ScrollEventHandler Scroll;
      protected virtual void OnScroll(ScrollEventArgs e) {
        ScrollEventHandler handler = this.Scroll;
        if (handler != null) handler(this, e);
      }
      protected override void WndProc(ref Message m) {
        base.WndProc(ref m);
        if (m.Msg == 0x115) { // Trap WM_VSCROLL
          OnScroll(new ScrollEventArgs((ScrollEventType)(m.WParam.ToInt32() & _
            0xffff), 0));
        }
      }
    }

Imports System
Imports System.Windows.Forms
 
Public Class ListViewEX
 
    Inherits ListView
 
    Public Event Scroll As ScrollEventHandler
 
    Protected Overridable Sub OnScroll(ByVal e As ScrollEventArgs)
        Dim handler As ScrollEventHandler = Me.Scroll
        If (Not (handler) Is Nothing) Then
            handler(Me, e)
        End If
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        If m.Msg = &H115 Then
            ' Trap WM_VSCROLL
            OnScroll(New ScrollEventArgs(DirectCast(m.WParam.ToInt32() And _
              &HFFFF, ScrollEventType), 0))
        End If
    End Sub
 
End Class

"Public Event Scroll(sender As Object, e As" & _
  "System.Windows.Forms.ScrollEventArgs)" ist ein Ereignis und kann nicht _
  direkt aufgerufen werden. Verwenden Sie eine RaiseEvent-Anweisung, um ein _
  Ereignis aufzurufen.