Private Sub Form_Click() Dim r&, g&, b&, zeminr& Me.Cls zeminr = Rnd(1) * 2 ^ 24 Label1 = "Zemin " & zeminr & "(" & Hex(zeminr) & ")" Me.BackColor = zeminr RenkleriAl zeminr, r, g, b Label2 = "Kırmızı " & r & "(" & Hex(r) & ")" Label3 = "Yeşil " & g & "(" & Hex(g) & ")"

Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir.

Baslık	Kategori	Hit
Kaşif	VISUAL BASIC	128
Text nasıl sifrelenir	VISUAL BASIC	196
Sözcük hecele	VISUAL BASIC	143
Microsoft Excel Dokumanlarını Açma	VISUAL BASIC	664
CONTROLLERE HAVA KATMAK İÇİN GÜZEL Bİ FONKSİYON	VISUAL BASIC	122