Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Collections
Imports System.Runtime.InteropServices
 
Public Class MyListview
 
    Inherits System.Windows.Forms.ListView
 
#Region "Declaration"
 
    Private Const LVM_FIRST As UInt32 = &H1000
    Private Const LVM_SCROLL As UInt32 = (LVM_FIRST + 20)
    Private Const WM_HSCROLL As Integer = &H114
    Private Const WM_VSCROLL As Integer = &H115
    Private Const WM_MOUSEWHEEL As Integer = &H20A
    Private Const WM_PAINT As Integer = &HF
    Private Const WM_DRAWITEM = &H2B
 
#End Region
 
 
#Region "overrides-Functions"
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Try
            Select Case (m.Msg)
                Case WM_HSCROLL
                    RaiseEvent Scrolling()
                    RaiseEvent ScrollingHorizontal()
                Case WM_VSCROLL
                    RaiseEvent Scrolling()
                    RaiseEvent ScrollingVertical()
             End Select
 
        Finally
 
        End Try
 
 
        MyBase.WndProc(m)
    End Sub
 
 
#End Region
 
 
#Region "PublicEvents"
 
    Public Event ScrollingVertical()
 
    Public Event ScrollingHorizontal()
 
    Public Event Scrolling()
 
#End Region
End Class