http://www0.ccidnet.com/school/software//2003/05/12/134_8726.html
LZ看这里绝对够详细的，
放上一个Label1控件和一个VScroll1控件组(3个控件)，再拷贝下列代码到代码窗口。
Private Sub Form_Load()
VScroll1(0).Min = 0
VScroll1(0).Max = 255
VScroll1(1).Min = 0
VScroll1(1).Max = 255
VScroll1(2).Min = 0
VScroll1(2).Max = 255
End Sub
Private Sub VScroll1_Change(Index As Integer)
Label1.ForeColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024