Also, AFAIK, textbox scrollbar does not work with mouse wheel.
you can make it work with API's
put this in a new module (if you want to use this all over the place)
Code:
Option Compare Database
Option Explicit
'Scrolling Constants
Private Const WM_VSCROLL = &H115
Private Const WM_HSCROLL = &H114
Private Const SB_LINEUP = 0
Private Const SB_LINEDOWN = 1
Private Declare PtrSafe Function GetFocus Lib "USER32" () As LongPtr
Private Declare PtrSafe Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Function useMouseWheel(wCount As Long)
Dim i As Long
For i = 1 To Abs(wCount)
SendMessage GetFocus, WM_VSCROLL, IIf(wCount < 0, SB_LINEUP, SB_LINEDOWN), 0&
Next
End Function
and put this in the form mousewheel event
Code:
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
If ActiveControl.Name = "name of the textbox you want to scroll" Then useMouseWheel (Count)
End Sub