Uzman Üye
Merhaba Arkadaşlar bugün yanıp sönen label yapmayı göstereceğim sizlere.
Public Class Formun altına gelecek kod:
Kod:
Dim r, g, b As Integer
Form1 loada gelecek kod:
Kod:
Timer1.Enabled = True
Timer1.Interval = 10
Timere Gelecek Kod:
Kod:
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)
Public Class Formun altına gelecek kod:
Kod:
Dim r, g, b As Integer
Form1 loada gelecek kod:
Kod:
Timer1.Enabled = True
Timer1.Interval = 10
Timere Gelecek Kod:
Kod:
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)