三个滚动条设置：min:0；max:255；smallchange:5；largechange:20

text1---text3用来显示你所选择单原色，并在相应的label中显示出数值。

Text4用来显示混合以后的颜色。

第二步：编写程序代码如下：

Private Sub VScroll1_Change()

Label1.Caption = "红色：" + Str(VScroll1.Value)

Text1.BackColor = RGB(VScroll1.Value, 0, 0)

Text4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Private Sub VScroll2_Change()

Label2.Caption = "绿色：" + Str(VScroll2.Value)

Text2.BackColor = RGB(0, VScroll2.Value, 0)

Text4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Private Sub VScroll3_Change()

Label3.Caption = "兰色：" + Str(VScroll3.Value)

Text3.BackColor = RGB(0, 0, VScroll3.Value)

Text4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

单击F5运行程序，先调出你所需要的颜色，然后查看一下各单色（红，兰，绿）值即可。如上图，我调出的颜色值是rgb(142,105,195).怎么样，这个小程序虽然简单，却很实用。用它来教幼儿园的小朋友认识各种不同的颜色也很不错的哟。 奚越 xxiyyue@sina.com