ListBox и Vscroll

[M_Block]

Ситуация такая. У меня на форме 3 ListBox'а, заполняются всегда одинаковым кол-ом строк, при появлении VScroll необходимо прокручивать их во всех окнах одинаково. Использовал GetScrollPos и SetScrollPos, перемещаются, но содержимое ListBox'а остается на месте, пока не тыкнешь по полосе прокрутки. Помогите пожалуйста, заранее спасибо.

[Viper]

Код показывай

[M_Block]

Код: Выделить всё

Private Const SB_VERT = 1

Private Declare Function GetScrollPos _
Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nBar As Long _
) As Long

Private Declare Function SetScrollPos _
Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nBar As Long, _
    ByVal nPos As Long, _
    ByVal bRedraw As Long _
) As Long

Private Sub List1_Click()
List1.ToolTipText = List1.Text
List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex
Position_scr = GetScrollPos(List1.hwnd, SB_VERT)
pos2 = SetScrollPos(List2.hwnd, SB_VERT, Position_scr, True)
'MsgBox (Position_scr & " " & pos2)
End Sub


Вот после этого полоска перемещается, в Msgbox отслеживается изменение значения, но List2 не "освежается".
Видел на форуме похожее решение, но там используются установленные ScrollBar'ы, а мне бы хотелось использовать встроенный.

[alibek]

А не проще использовать TopIndex?

[M_Block]

М-мда, а слона то я и не заметил.
Не пользовался этим свойством, а зря. Спасибо, так действительно попроще будет.