EXERCISE NO: 3

Private Sub Command1_Click()
End
End Sub

Private Sub VScrollFirst_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
lblRed.Caption = "Red: " & VScrollFirst.Value
End Sub

Private Sub VScrollSecond_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
lblGreen.Caption = "Green: " & VScrollSecond.Value
End Sub

Private Sub VScrollThird_Change()
Picture1.BackColor = RGB(VScrollFirst.Value, VScrollSecond.Value, VScrollThird.Value)
lblBlue.Caption = "Blue: " & VScrollThird.Value
End Sub