VB6.0 원색상 바꾸기 레드/그린/블루 = 3원색


Private Sub HScroll1_Change(Index As Integer)
 
Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

Label4.Caption = HScroll1(0).Value
Label5.Caption = HScroll1(1).Value
Label6.Caption = HScroll1(2).Value

End Sub