[code lang=”vbnet”]Public Class Form1
Dim r, g, b As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
r = Int(Rnd() * 256)
g = Int(Rnd() * 256)
b = Int(Rnd() * 256)
Label1.ForeColor = Color.FromArgb(r, g, b)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
End Class
[/code]
LABEL NSL BÜYÜLTÜLECEK Bİ YARDİM
Eklediğin label seçtikten sonra sağdaki Properties’teki AutoSize özelliğini False yapmalısın. Eğer yazıyı büyültmeyi soruyorsan onuda Properties’deki font’un yanında bulunan üç nokta tıklıyon.Aynen Word’de olduğu gibi yazının boyutunu istediğin büyüklüğe ayarlıyorsun. Kolay gelsin.