Скролинг

[STanli]

НА форме есть скролбар, как зделать чтобы когда крутишь колёсико он тоже крутился

[BP]

Через субклассинг. Ловишь сообщение WM_MOUSEWHEEL.
Когда сообщение поймано. Смотришь старшее слово из wParam.
Const WHEEL_ForeWard As Integer = 120, WHEEL_BackWard As Integer = -120
if HiWord(wParam)=WHEEL_ForeWard then 'вперёд
if HiWord(wParam)=WHEEL_BackWard then 'назад

Public Function HiWord(DWord As Long) As Integer
HiWord = (DWord And &HFFFF0000) \ &H10000
End Function


Посмотри на моём сайте пример Мultiscroll
Там правда для текстбокса, но переделать несложно.

[STanli]

Пасиб.