Для определенности поговорим о горизонтальной полосе прокрутки(HScrollBar). Все сказанное будет полностью относиться и к вертикальной полосе(VScrollBar).
Поместите на форму горизонтальную полосу. Запустите проект. Потаскайте мышкой бегунок. Вы, безусловно, знакомы с полосой прокрутки по другим приложениям Windows. Она используется в основном для того, чтобы прокручивать информацию в окне или же просто менять значение какой-нибудь величины.
Задача: Изменять с помощью полосы прокрутки значение переменной величины W в пределах от 20 до 50. При щелчке по стрелкам полосы или клавиатуры значение переменной должно меняться на 2, а при щелчке по полосе слева или справа от бегунка значение переменной должно меняться на 5. При запуске проекта бегунок должен стоять на отметке 27.
Ваши действия: Создайте проект и поместите на форму горизонтальную полосу прокрутки. Ее имя HScroll1. Установите в соответствии с числами из задания следующие свойства полосы:
· Min - 20
· Max - 50
· SmallChange - 2
· LargeChange - 5
· Value - 27
Проверьте правильность работы полосы, запустив программу:
Private Sub HScroll1_Change()
W = HScroll1.Value
Debug.Print W
End Sub
Событие HScroll1_Change возникает при любом перемещении бегунка.
Задание 123: Поместите рядом с полосой три метки:

Левая метка должна указывать минимальное значение, правая - максимальное, средняя - текущее. Усложнение: Хорошо бы средняя метка бегала рядом с бегунком.