滚动条控件：水平滚动条和垂直滚动条
如何配置滚动条值的范围？
配置最大值：使用max属性
配置最小值：使用min属性
如何获取滚动条当前的这个位置的值？
使用value属性
滚动条的Change事件：是指当滚动条的当前的值发生变化，就会执行的事件。
如何让窗体加载的出来的时候，就呈现滚动条设置好的颜色呢？
Form_Load事件进行加载
注意：VB中的所有的控件的属性基本上既可以进行设置又可以进行获取。
本节知识效果图：
本节知识源代码：
Dim s As String Private Sub Command1_Click() MsgBox VScroll1.Value End Sub Private Sub Form_Load() s = "向下" lblred.Caption = VScroll1.Value lblgreen.Caption = VScroll2.Value lblblue.Caption = VScroll3.Value Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub Timer1_Timer() If Command1.Top <= 0 Then s = "向下" End If If Command1.Top >= 5040 Then s = "向上" End If If s = "向下" Then Command1.Top = Command1.Top + 10 End If If s = "向上" Then Command1.Top = Command1.Top - 10 End If End Sub Private Sub VScroll1_Change() lblred.Caption = VScroll1.Value Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll2_Change() lblgreen.Caption = VScroll2.Value Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub Private Sub VScroll3_Change() lblblue.Caption = VScroll3.Value Form1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub
