EXERCISE NO. 3

Private Sub VScrollGENA3_Change()
Picture1.BackColor = RGB(VScrollGENA3.Value, VScrollGENA2.Value, VScrollGENA1.Value)
LabelR.Caption = "Red: " & VScrollGENA3.Value
End Sub

Private Sub VScrollGENA2_Change()
Picture1.BackColor = RGB(VScrollGENA3.Value, VScrollGENA2.Value, VScrollGENA1.Value)
LabelG.Caption = "Green: " & VScrollGENA2.Value
End Sub

Private Sub VScrollGENA1_Change()
Picture1.BackColor = RGB(VScrollGENA3.Value, VScrollGENA2.Value, VScrollGENA1.Value)
LabelB.Caption = "Blue: " & VScrollGENA1.Value
End Sub