Макрос

[bakhtiyar.]

Не могу вставить код макросы. Пишет ошибку, вроде код правильный. Помогите найти причину ошибки. Вот код:
Option Explicit
Dim r, g, b As Byte
Private Sub ScrollBar1_Change()
r = ScrollBar1.Value
g = ScrollBar2.Value
b = ScrollBar3.Value
Image1.BackColor = RGB(r, g, b)
Cells(2, 1) = ScrollBar1.Value
End Sub
Private Sub ScrollBar2_Change()
r = ScrollBar1.Value
g = ScrollBar2.Value
b = ScrollBar3.Value
Image1.BackColor = RGB(r, g, b)
Cells(2, 2) = ScrollBar2.Value
End Sub

Private Sub ScrollBar3_Change()
r = ScrollBar1.Value
g = ScrollBar2.Value
b = ScrollBar3.Value
Image1.BackColor = RGB(r, g, b)
Cells(2, 3) = ScrollBar3.Value
End Sub
Private Sub ScrollBar1_Scroll()
ScrollBar1_Change
End Sub
Private Sub ScrollBar2_Scroll()
ScrollBar2_Change
End Sub
Private Sub ScrollBar3_Scroll()
ScrollBar3_Change
End Sub



Что по идеии должно получиться
http://iscr.ru/1348994569/

[IgorGO]

Dim r As Byte, g As Byte, b As Byte

[bakhtiyar.]

все равно не идет

[doober]

По умолчанию в свойствах максимум установлен 32767

 ScrollBar1.Max = 255
 ScrollBar2.Max = 255
 ScrollBar3.Max = 255