Собственно все.

Ошибаешся

Видел я этот топик уже (SergeySV), пробовал что-то сделать, сдернул слайдер в листбоксе на необходимое количество единиц, но только один раз, последующие перемещения почему-то не получались, как не получалось считать положение скроллбара.

По VB-шным примерам не пробовал, подумал что не подойдет.

Скроллбары на листбоксе являются частью окна или дочерними окнами? Или как к ним лучше обращаться по хэндлу полос или по хэндлу листбокса?

Вообщем такой код работает:
Option Compare Database
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
LParam As Any) As Long
Public Enum TypeScrolling
SB_LINEUP = 0
SB_LINELEFT = 0
SB_LINEDOWN = 1
SB_LINERIGHT = 1
SB_PAGEUP = 2
SB_PAGELEFT = 2
SB_PAGEDOWN = 3
SB_PAGERIGHT = 3
SB_THUMBPOSITION = 4
SB_THUMBTRACK = 5
SB_TOP = 6
SB_LEFT = 6
SB_BOTTOM = 7
SB_RIGHT = 7
SB_ENDSCROLL = 8
End Enum

Public Const WM_VSCROLL = &H115

Public Function Scroll(WinhWnd As Long, Tip As TypeScrolling) As Long
Scroll = SendMessage(WinhWnd, WM_VSCROLL, Tip, Null)
End Function

Private Sub Кнопка_Click()
Me.Список2.SetFocus
Scroll apiGetFocus, SB_LINEDOWN
End Sub