通过RGB函数可将红绿蓝三基色混合产生特定颜色。若使用三个滚动条分别输入三种基色并将每一种颜色的取值

• Scroll Bar 控件如何工作

滚动条控件用 Scroll 和 Change 事件监视滚动框（有时用拇指替代）沿滚动条的移动。

事件              描述    

Change      在滚动框移动后发生。    

Scroll          在移动滚动框时发生。在单击滚动箭头或滚动条时不发生。    

可用 Scroll 事件访问滚动条被拖动后的数值。在释放滚动框或单击滚动条或滚动箭头时，hange 事件就会发生。

• Value 属性

Value 属性（缺省值为 0）是一个整数，它对应于滚动框在滚动条中的位置。当滚动框位置在最小值时，它将移动到滚动条的最左端位置（水平滚动条）或顶端位置（垂直滚动条）。当滚动框在最大值时，它将移动到滚动条的最右端或底端位置。同样，滚动框取中间数值时将位于滚动条的中间位置。

除了可用鼠标单击改变滚动条数值外，也可将滚动框沿滚动条拖动到任意位置。结果取决于滚动框的位置，但总是在用户所设置的 Min 和 Max 属性之间。

注意 如果希望滚动条显示的信息从较大数值向较小数值变化，可将 Min 设置成大于 Max
的值。

• LargeChange 和 SmallChange 属性

为了指定滚动条中的移动量，对于单击滚动条的情况可用 LargeChange 属性，对于单击滚动条两端箭头的情况可用 SmallChange 属性。滚动条的 Value 属性增加或减少的长度是由 LargeChange 和 SmallChange 属性设置的数值。要设置滚动框在运行时的位置，可将 Value 属性设为 0 到 32,767 中的某个数值（包括 0 和 32,767）。

Private Sub VScroll1_Change(Index As Integer)
 Text2(Index).Text = VScroll1(Index).Value
 Picture1.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub