求VB高手 VB小程序 明天考试了 这道题做到一半做不出来了 帮帮忙啊！万分感谢！！

这个太简单了！
Dim a As Integer, b As Integer, c As Integer

Private Sub HScroll1_Change()
a = HScroll1.Value
b = HScroll2.Value
c = HScroll3.Value

If Option1.Value = True Then
Text1.ForeColor = RGB(a, b, c)
ElseIf Option2.Value = True Then
Text1.BackColor = RGB(a, b, c)
End If
End Sub

Private Sub HScroll2_Change()
a = HScroll1.Value
b = HScroll2.Value
c = HScroll3.Value
If Option1.Value = True Then
Text1.ForeColor = RGB(a, b, c)
ElseIf Option2.Value = True Then
Text1.BackColor = RGB(a, b, c)
End If
End Sub

Private Sub HScroll3_Change()
a = HScroll1.Value
b = HScroll2.Value
c = HScroll3.Value

If Option1.Value = True Then
Text1.ForeColor = RGB(a, b, c)
ElseIf Option2.Value = True Then
Text1.BackColor = RGB(a, b, c)
End If

End Sub

行不行，不懂再问吧。。

用标签做最好用来显示变色 label有forecolore behindcolore的属性？
这三个条是分别为蓝 红 绿三色应该
如果是用色带来做的话 是用块来拖动 如果用数值来做的话 是用按钮 我看你的是用按钮来做的否?
点击后能引发事件
三色用0~256值 或用16制的数来确定色的