____________________________________________________________________
Private Sub Command1_Click()
'Text1.BackColor = 255
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Text1.Enabled = False
HScroll1.Max = 255
HScroll1.Min = 0
HScroll1.SmallChange = 1
HScroll1.LargeChange = 2
HScroll1.Value = 255
HScroll2.Max = 255
HScroll2.Min = 0
HScroll2.SmallChange = 1
HScroll2.LargeChange = 2
HScroll2.Value = 0
HScroll3.Max = 255
HScroll3.Min = 0
HScroll3.Value = 0
HScroll3.SmallChange = 1
HScroll3.LargeChange = 2
End Sub
Private Sub HScroll1_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll2_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
Private Sub HScroll3_Change()
Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub
__________________________________________________________
OUTPUT
__________________________________________________________

____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment