[Resolvido]Botão "Wheel" do mouse

Option Explicit

Dim EstaNoFoco As Boolean

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
  'By JPaulo ® Maximo Access
   If EstaNoFoco = True Then
       If Count < 0 Then
           SendKeys "{up 1}" '1 é a quantidade de linhas que passa ao fazer Scroll no mouse para cima
       Else
           SendKeys "{down 1}" '1 é a quantidade de linhas que passa ao fazer Scroll no mouse paar baixo
       End If
   End If
End Sub

Private Sub SeuCampo_GotFocus()
  'Ao receber o foco no seu campo
   EstaNoFoco = True
End Sub

Private Sub SeuCampo_LostFocus()
  'Ao perder o foco no seu campo
   EstaNoFoco = False
End Sub