Activity 3

Code:

Private Sub VScrol1_Change()Picture1.BackColor = RGB(VScrol1.Value, VScrol2.Value, VScrol3.Value)Label1.Caption = "Red: " & VScrol1.ValueEnd Sub

Private Sub VScrol2_Change()Picture1.BackColor = RGB(VScrolt1.Value, VScrol2.Value, VScrol3.Value)Label2.Caption = "Green: " & VScrol2.ValueEnd Sub

Private Sub VScrol3_Change()Picture1.BackColor = RGB(VScrol1.Value, VScrol2.Value, VScrol3.Value)Label3.Caption = "Blue: " & VScrol3.ValueEnd Sub