Activity 3

Output

Code:

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

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

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