Private Sub VScroll1_Change()
Form1.BackColor = _
RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub
Private Sub VScroll2_Change()
Form1.BackColor = _
RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub
Private Sub VScroll3_Change()
Form1.BackColor = _
RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub