Kullanılacak araçlar: 3 adet VScroll, 1 adet TextBox.

İlk önce formumuzu resimdeki şekilde hazırlayalım:


Daha sonra sonra Form_Load bölümünün içine girip şu kodları yazıyoruz..
Private Sub Form_Load()
Vscrolll.Max=255
Vscroll2.Max=255
Vscroll3.Max=255
End Sub

Vscroll1 kodları:
Prevate Sub Vscroll1_Change()
Text1.Backcolor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)
End Sub

Vscroll2 kodları:
Prevate Sub Vscroll2_Change()
Text1.Backcolor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)
End Sub

Vscroll3 kodları:
Prevate Sub Vscroll3_Change()
Text1.Backcolor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)
End Sub

Dikkat: Arkadaşlar Vscroll kodlarında RGB'nin altındaki kodlar RGB'nin yanında olmalıdır. Yani kod tek satırda olacak.

Son Görünümü:



Not : Bu Ders Alıntıdır
Umarım İşinize yarar