EXERCISE 3

Private Sub VScrollone_Change()
Picture1.BackColor = RGB(VScrollone.Value, VScrolltwo.Value, VScrollthree.Value)
lblone.Caption = "Red: " & VScrollone.Value
End Sub

Private Sub VScrolltwo_Change()
Picture1.BackColor = RGB(VScrollone.Value, VScrolltwo.Value, VScrollthree.Value)
lbltwo.Caption = "Green: " & VScrolltwo.Value
End Sub

Private Sub VScrollthree_Change()
Picture1.BackColor = RGB(VScrollone.Value, VScrolltwo.Value, VScrollthree.Value)
lblthree.Caption = "Blue: " & VScrollthree.Value
End Sub