Обработка события Change объекта ScrollBar1:
Private Sub ScrollBar1_Change()
TextBox1.Text = ScrollBar1.Value
End Sub
Обработка события
Change объекта TextBox1:
Private Sub TextBox1_Change()
On Error GoTo Instr
ScrollBar1.Value = TextBox1.Text
Exit Sub
Instr:
TextBox1.Text = "Недопустимое значение"
End Sub
Если содержимое элемента управления TextBox1 не соответствует интервалу значений полосы прокрутки, возникает ошибка (преобразование в число происходит автоматически). Чтобы ее избежать и вывести сообщение о недопустимости значения, используется обработчик ошибок.
Все три процедуры размещаются в модуле пользовательской формы.