1、必做题：在每道题正确无误后保存为结果文件（*.exe），以自己的姓名加学号后两位进行命名，然后提交作业）
       新建一个工程，利用滚动条控件控制颜色的改变。设计一个调色板程序界面如下图所示，建立三个水平滚动条作为红、绿、蓝三种颜色的基本输入工具，合成颜色显示在右边标签中，改变label4的背景颜色，提示：用其背景颜色属性backcolour值的改变实现颜色的调色。

代码提示如下：

Option Explicit

Private Sub Hsbblue_Change()

    Label4.BackColor = RGB(Hsbred, Hsbgreen, Hsbblue)

End Sub

Private Sub Hsbgreen_Change()

    Label4.BackColor = RGB(Hsbred, Hsbgreen, Hsbblue)

End Sub

Private Sub Hsbred_Change()

    Label4.BackColor = RGB(Hsbred, Hsbgreen, Hsbblue)

End Sub
2、附加题（选做题，请有能力的同学尝试完成下面的任务）     
       选课系统实例。List1中是可供选择的课，通过form_load事件添加供选择的课程；list2中是某学生选择的课程，双击List1中是可供选择的课程添加到list2中；假定每选1门课程，list1列表框中要将该课程删除；当选中的课程达到4门不允许再选。

代码提示如下：

Option Explicit

Private Sub Form_Load()

     List1.AddItem "大学计算机应用基础"

     List1.AddItem "vb程序设计"

     List1.AddItem "网页制作"

     List1.AddItem "医院信息系统"

     List1.AddItem "医院管理"

     List1.AddItem "管理心理学"

     List1.AddItem "临床医学"

End Sub

Private Sub List1_DblClick()

If List2.ListCount < 4 Then

   List2.AddItem List1.Text

   List1.RemoveItem List1.ListIndex

Else

   MsgBox ("你已经选择了4门课程，不允许再选课！")

End If

End Sub