Change color use HScoll Bar in vb6.0

Private Sub HScroll1_Change()
Label4.BackColor = RGB(0, HScroll1.Value, 0)
Label4.ForeColor = RGB(0, HScroll1.Value, 0)
End Sub

Private Sub HScroll2_Change()
Label4.BackColor = RGB(0, HScroll2.Value, 0)
Label4.ForeColor = RGB(0, 0, HScroll2.Value)
End Sub

Private Sub HScroll3_Change()
Label4.BackColor = RGB(0, 0, HScroll3.Value)
Label4.ForeColor = RGB(HScroll3.Value, 0, 0)
End Sub