1. Активизируйте приложение Word и сохраните документ.
2. Перейдите в редактор VBA и создайте форму (рис. 56).

Рис. 56.Форма примера 26 в режиме конструктора и рабочем режиме
3. Обработайте элементы ScrollBar и кнопку «Вычислить».
Dim a, b, c As Integer
Private Sub CommandButton1_Click()
c = a + b
Label4.CaptioN= «Сумма с=» & c
End Sub
Private Sub ScrollBar1_Change()
TextBox1.Text = ScrollBar1.Value
a = Val(TextBox1.Text)
End Sub
Private Sub ScrollBar2_Change()
TextBox2.Text = ScrollBar2.Value
b = Val(TextBox2.Text)
End Sub
4. Откомпилируйте программу и запустите форму на выполнение.