Project_exercise#3

Private Sub VScroltiny_Change()

Picture1.BackColor = RGB(VScroltiny.Value, VScrolminnie.Value, VScroltinnie.Value)
Label1.Caption = "Red: " & VScroltiny.Value

End Sub

Private Sub VScrolminnie_Change()
Picture1.BackColor = RGB(VScroltiny.Value, VScrolminnie.Value, VScroltinnie.Value)
Label2.Caption = "Green: " & VScrolminnie.Value
End Sub

Private Sub VScroltinnie_Change()
Picture1.BackColor = RGB(VScroltiny.Value, VScrolminnie.Value, VScroltinnie.Value)
Label3.Caption = "Blue: " & VScroltinnie.Value
End Sub