По моему у Lebans-а подглядел.
В общий модуль:
Option Compare Database
Option Explicit
Type SCROLLINFO
cbSize As Long
fMask As Long
nMin As Long
nMax As Long
nPage As Long
nPos As Long
nTrackPos As Long
End Type

Public Declare Function GetFocus Lib "user32" () As Long

Private Declare Function apiGetScrollInfo _
Lib "user32" Alias "GetScrollInfo" (ByVal hWnd As Long, _
ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long

Private Const SIF_RANGE = &H1
Private Const SIF_PAGE = &H2
Private Const SIF_POS = &H4
Private Const SIF_DISABLENOSCROLL = &H8
Private Const SIF_TRACKPOS = &H10
Private Const SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)

Private Const SB_HORZ = 0
Private Const SB_CTL = 2
Private Const SB_VERT = 1

Public Function GetCurrentScrollPos(ListHwnd As Long) As Long

Dim mySI As SCROLLINFO
Dim lngRet As Long
Dim lngListHwnd As Long
Dim lngMask As Long

mySI.cbSize = LenB(mySI)
mySI.fMask = SIF_ALL

lngRet = apiGetScrollInfo(ListHwnd, SB_VERT, mySI)
GetCurrentScrollPos = mySI.nPos

End Function

Вызов из формы (пример по нажатию кнопки)
Private Sub cmd0_Click()
Me.List0.SetFocus
GetCurrentScrollPos (GetFocus)
End Sub