You can use SystemParametersInfo function to change this setting.
___
[tt]
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETWHEELSCROLLLINES = 105
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Const WHEEL_PAGESCROLL = -1
Private Sub SetMouseWheelScrollLines(Lines As Long)
SystemParametersInfo SPI_SETWHEELSCROLLLINES, Lines, 0&, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE
End Sub[/tt]
___
You can pass 0 to SetMouseWheelScrollLines function to disable scrolling. Passing the special value WHEEL_PAGESCROLL scrolls one whole page.