Private Sub Command1_Click()
Dim x As String, y As String, z As String
x = Hex(HScroll1.Value)
y = Hex(HScroll2.Value)
z = Hex(HScroll3.Value)
Text1.Text = x & y & z
Form1.BackColor = CLng("&h" & x & y & z)
End Sub
Private Sub HScroll1_Change()
Command1_Click
End Sub
Private Sub HScroll2_Change()
Command1_Click
End Sub
Private Sub HScroll3_Change()
Command1_Click
End Sub