Projemize 1 text 3tanede VScroll ekleyin...


sonra bu kodu yazın scrollarda surulen rengi rgb olarak textbackcolor yapıyor :

Private Sub Form_Load()

VScroll1.Max = 255
VScroll2.Max = 255
VScroll3.Max = 255


End Sub

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

End Sub

Private Sub VScroll2_Change()
Text1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub

Private Sub VScroll3_Change()
Text1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub

++rep
__________________