VB滚动条RGB颜色的设置

你好象就是打算通过操纵滚动条来改变文本框的背景色,整这么复杂干什么?
Private Sub Form_Load()
For i = 0 To 2
HScroll1(i).Max = 255
HScroll1(i).Min = 0
HScroll1(i).Value = 0
Next
Text1.BackColor = RGB(0, 0, 0)
End Sub

Private Sub hScroll1_Change(Index As Integer)
Dim R_color As Long
Dim G_color As Long
Dim B_color As Long
R_color = HScroll1(0).Value
G_color = HScroll1(1).Value
B_color = HScroll1(2).Value

Text1.BackColor = RGB(R_color, G_color, B_color)
End Sub