CODES:

Private Sub VScrollRed_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label1.Caption = "Red: " & VScrollRed.Value

End Sub

Private Sub VScrollGreen_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label2.Caption = "Green: " & VScrollGreen.Value

End Sub

Private Sub VScrollBlue_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label3.Caption = "Blue: " & VScrollBlue.Value

End Sub