นาย.......
นาย.......
ห้อง E.....
(http://www.uppic.net/ih/habcd.png)
Option Explicit
Private Sub Command1_Click()
End
End Sub
Private Sub HScroll1_Change()
Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.Caption = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label3.Caption = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Shape1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = HScroll3.Value
End Sub