VB調色板調色板
Private Sub Form_Load() Form1.BackColor = RGB(255, 255, 255) End Sub Private Sub HScroll1_Change() Form1.BackColor = RGB(HScroll1.Value,HScroll2.Value, HScroll3.Value) Label4.Caption = HScroll1.Value End Sub Private Sub HScroll2_Change() Form1.BackColor = RGB(HScroll1.Value,HScroll2.Value, HScroll3.Value) Label5.Caption = HScroll2.Value End Sub Private Sub HScroll3_Change() Form1.BackColor = RGB(HScroll1.Value,HScroll2.Value, HScroll3.Value) Label6.Caption = HScroll3.Value End Sub
| 
