Private Sub Form_Load()
For i = 0 To 2
HScroll1(i).Max = 255
Next
Shape1.BackStyle = 0
Shape1.FillStyle = 0
Call HScroll1_Change(0)
End Sub
Private Sub HScroll1_Change(Index As Integer)
Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
For i = 0 To 2
Label1(i).Caption = HScroll1(i).Value
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024