Description : you can change and make RGB colors using scrollbar
Private Sub Form_Load()
End Sub
Private Sub HScroll1_Change()
HScroll1.Value = Str(HScroll1.Value)
Form1.BackColor = QBColor(HScroll1.Value)
End Sub
Private Sub HScroll1_Scroll()
Label1.Caption = Str(HScroll1.Value)
Form1.BackColor = QBColor(HScroll1.Value)
End Sub
