Vb 6 Как Имитировать прокрутку колеса мыши?

Формулировка задачи:

Имитация нажатия левой кнопки мыши делатется так А как сделать имитацию колеса вверх и вниз на одно 1 деление ? Пробовал добавить констансту &H20A не помогло

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dX As Long, ByVal dY As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const LEFTDOWN = &H2, LEFTUP = &H4 'НАЖАТ И ОТЖАТЬ  ЛЕВУЮ КНОПКУ МЫШИ

Private sub Command1_click()
mouse_event LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event LEFTUP, 0&, 0&, 0&, 0&
end sub

Решение задачи: «Vb 6 Как Имитировать прокрутку колеса мыши?»

textual
                            Листинг программы 
                        
                            Private Const MOUSEEVENTF_WHEEL As Long = &H800&          ' Specifies that the wheel has been moved, if the mouse has a wheel