EXERCISE NO. 3

Private Sub VScrollA_Change()

Picture1.BackColor = RGB(VScrollA.Value, VScrollB.Value, VScrollC.Value)

lblA.Caption = "Red: " & VScrollA.Value

End Sub

Private Sub VScrollB_Change()Picture1.BackColor = RGB(VScrollA.Value, VScrollB.Value, VScrollC.Value)

lblB.Caption = "Green: " & VScrollB.Value

End Sub

Private Sub VScrollC_Change()Picture1.BackColor = RGB(VScrollA.Value, VScrollB.Value, VScrollC.Value)

lblC.Caption = "Blue: " & VScrollC.Value

End Sub