Declare Function mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As _
Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) As Long
Const WHEEL_DELTA = 120
Const MOUSEEVENTF_WHEEL = &H800
'Courtesy of Mike Jerry
Sub Main
Select Case ListVar1
 Case "Up"
 mouse_event(MOUSEEVENTF_WHEEL, 0, 0, WHEEL_DELTA*Val(ListVar2), 0)
 Case "Down"
 mouse_event(MOUSEEVENTF_WHEEL, 0, 0, -WHEEL_DELTA*Val(ListVar2), 0)
 Case "Right"
 mouse_event(MOUSEEVENTF_HWHEEL, 0, 0, WHEEL_DELTA*Val(ListVar2), 0)
 Case "Left"
 mouse_event(MOUSEEVENTF_HWHEEL, 0, 0, -WHEEL_DELTA*Val(ListVar2), 0)
End Select
End Sub