Back and fore ground colors

Code:

Private Sub HScroll1_change()

Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll2_Change()

Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll3_Change()

Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)

End Sub

Private Sub HScroll4_Change()

Text1.ForeColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)

End Sub

Private Sub HScroll5_Change()

Text1.ForeColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)

End Sub

Private Sub HScroll6_Change()

Text1.ForeColor = RGB(HScroll4.Value, HScroll5.Value, HScroll6.Value)

End Sub