知识要点：
1.颜色函数rgb
2.认识和使用横向滚动条和纵向滚动条
3.使用滚动条事件
函数介绍：
rgb函数：用来返回一种颜色。
使用格式rgb(红色，绿色，蓝色)，每种颜色的数据范围在[0,255]
横/纵向滚动条相关设置：
设置最小值：min属性
设置最大值：max属性
设置或获取当前值：value属性
滚动条重要事件：change事件
双击滚动条可以默认进入change事件，这个事件的作用就是当滚动条的值发生变化后会实时触发这个事件，执行这个事件内部的代码。
实现步骤：
1.介绍滚动条相关知识
2.界面实现滚动条的应用
3.使用滚动条事件控制颜色变化
实验活动：
1.拖入三个横向滚动条分别代表：红色、绿色、蓝色的数值范围
2.用label控件来显示颜色
3.颜色函数使用rgb函数
4.通过纵向滚动条数值范围改变label控件的宽度和高度
软件设计界面：
源代码分享：
Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub Timer1_Timer() VScroll1.Value = VScroll1.Value - 1 VScroll2.Value = VScroll2.Value - 1 If VScroll1.Value = 0 Or VScroll2.Value = 0 Then Timer1.Enabled = False End Sub Private Sub VScroll1_Change() Label1.Width = VScroll1.Value End Sub Private Sub VScroll2_Change() Label1.Height = VScroll2.Value End Sub
