把滚动条设置成0-255取值范围，可改变RGB中的一种的数值，3个组合后，就达到改变RGB颜色的目的
窗体上放一个 hscroll1 横滚动条：
Private Sub Form_Load()
HScroll1.Max = 255
HScroll1.Min = 0
End Sub
Private Sub HScroll1_Change()
Me.BackColor = RGB(HScroll1.Value, 0, 0)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024