Контрол для опроса Mouse Wheel (колёсико мыши)

Private Sub MouseScrollEvent1_MouseScrollObject(ByVal SCount As Long, ByVal SumSCount As Long, ByVal x As Long, ByVal y As Long, ByVal ObjectIndex As Long, ByVal Object_hWhd As Long, xObj As Long, yObj As Long)

    Select Case Object_hWhd
      Case Me.VScroll1.hwnd
       n = Me.VScroll1.Value - SCount
        If n > Me.VScroll1.Max Then n = Me.VScroll1.Max
        If n < Me.VScroll1.Min Then n = Me.VScroll1.Min
       Me.VScroll1.Value = n
     Case Me.HScroll1.hwnd
      n = Me.HScroll1.Value + SCount
       If n > Me.HScroll1.Max Then n = Me.HScroll1.Max
       If n < Me.HScroll1.Min Then n = Me.HScroll1.Min
      Me.HScroll1.Value = n
  End Select

End Sub

Private Sub MouseScrollEvent1_MouseScroll(ByVal SCount As Long, ByVal SumSCount As Long, ByVal x As Long, ByVal y As Long)
 Me.Label2.Caption = SumSCount
End Sub

Private Sub Form_Load()
 Me.Show
 Me.MouseScrollEvent1.a_Init Me.hwnd     'Me.hwnd можно и не указывать(привяжется к себе) но тогда иногда не ловит событие пока не щёлкнеш по контролу
 Me.MouseScrollEvent1.a_InitFormObject_Add Me.VScroll1.hwnd ', nVS ' необязательная переменая
 Me.MouseScrollEvent1.a_InitFormObject_Add Me.HScroll1.hwnd ', nHS 'в неё записывается индекс принятого контрола или 0 если не принят
End Sub

Private Sub Form_Terminate()
 'здесь обычно событие при полном закрытии проекта
 Me.MouseScrollEvent1.a_InitStop 0 'вызов с нулём сбрасывает все MouseScrollEvent на всех формах
End Sub

Private nVS As Long
Private nHS As Long


Private Sub Form_Load()
 Dim nn1 As Long, nn2 As Long
 Me.Show
 Me.MouseScrollEvent1.a_Init Me.hwnd
 Me.MouseScrollEvent1.a_InitFormObject_Add Me.VScroll1.hwnd, nVS  'nVS возращает индекс регистрации 1-10 или 0 если не привязалось
 Me.MouseScrollEvent1.a_InitFormObject_Add Me.HScroll1.hwnd, nHS
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Me.MouseScrollEvent1.a_InitStop
End Sub

Private Sub MouseScrollEvent1_MouseScrollObject(ByVal SCount As Long, ByVal SumSCount As Long, ByVal x As Long, ByVal y As Long, ByVal ObjectIndex As Long, ByVal Object_hWhd As Long, xObj As Long, yObj As Long)
 Dim n As Long
 
 Me.Label2.Caption = Format(ObjectIndex) + " " + Format(SumSCount)
  
  If Me.Check1.Value Then GoTo m10 'выбор по хендлу
 
 'по индексу
 
  Select Case ObjectIndex
  
    Case nVS
     n = Me.VScroll1.Value - SCount
      If n > Me.VScroll1.Max Then n = Me.VScroll1.Max
      If n < Me.VScroll1.Min Then n = Me.VScroll1.Min
     Me.VScroll1.Value = n
     
    Case nHS
     n = Me.HScroll1.Value + SCount
      If n > Me.HScroll1.Max Then n = Me.HScroll1.Max
      If n < Me.HScroll1.Min Then n = Me.HScroll1.Min
     Me.HScroll1.Value = n
  
  End Select
  
Exit Sub

 '----------------
 'по хэндлу
m10:
    Select Case Object_hWhd
  
    Case Me.VScroll1.hwnd
     n = Me.VScroll1.Value - SCount
      If n > Me.VScroll1.Max Then n = Me.VScroll1.Max
      If n < Me.VScroll1.Min Then n = Me.VScroll1.Min
     Me.VScroll1.Value = n
     
    Case Me.HScroll1.hwnd
     n = Me.HScroll1.Value + SCount
      If n > Me.HScroll1.Max Then n = Me.HScroll1.Max
      If n < Me.HScroll1.Min Then n = Me.HScroll1.Min
     Me.HScroll1.Value = n
  
  End Select
End Sub

  'SCount - на сколько сейчас сдвинулось колёсико
  'SumSCount сколько всего колёсико накрутило
Public Event MouseScroll(ByVal SCount As Long, ByVal SumSCount As Long, ByVal x As Long, ByVal y As Long)

Public Event MouseScrollObject(ByVal SCount As Long, ByVal SumSCount As Long, ByVal x As Long, ByVal y As Long _
  , ByVal ObjectIndex As Long, ByVal Object_hWhd As Long, xObj As Long, yObj As Long)