欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

A really old thread this, but here's my solution to this problem.

--------------
Option Compare Database
Option Explicit

Dim blnFocus As Boolean

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
   If blnFocus = True Then
       If Count < 0 Then
           SendKeys "{up 2}"
       Else
           SendKeys "{down 2}"
       End If
   End If
End Sub

Private Sub txtMyfield_GotFocus()
   blnFocus = True
End Sub

Private Sub txtMyfield_LostFocus()
   blnFocus = False
End Sub
------------------

It's not perfect, but it works. If your field gets focus by default, you
should set the blnFocus = True on form_open as well.
The number 2 tells how many lines to scroll. My mouse settings indicates 3
lines, but this overrides that setting.