CHANGING BACKCOLOR USING HSCROLLBAR AND VSCROLLBAR USING VISUAL BASIC

PROGRAM

Private Sub HScroll1_Change()

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

End Sub

Private Sub HScroll2_Change()

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

End Sub

Private Sub HScroll3_Change()

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

End Sub

Private Sub VScroll1_Change()

Text1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Private Sub VScroll2_Change()

Text2.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Private Sub VScroll3_Change()

Text3.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Share :

Tweet

✚

Related Post