EXERCISE 3: "COLOR MAKING"

Private Sub VScrollT1_Change()
Picture1.BackColor = RGB(VScrollT1.Value, VScrollT2.Value, VScrollT3.Value)
LBLTR.Caption = "Red: " & VScrollT1.Value
End Sub

Private Sub VScrollT2_Change()
Picture1.BackColor = RGB(VScrollT1.Value, VScrollT2.Value, VScrollT3.Value)
LBLTG.Caption = "Green: " & VScrollT2.Value
End Sub

Private Sub VScrollT3_Change()
Picture1.BackColor = RGB(VScrollT1.Value, VScrollT2.Value, VScrollT3.Value)
LBLTB.Caption = "Blue: " & VScrollT3.Value
End Sub

Private Sub Form_Load()
Label3.Caption = Date
Label4.Caption = Time

End Sub