form uzerine bir button bir textbox bir tanede timer ekliyelim.

Public Class form1 altına aşağıdaki kodu ekliyoruz.
Kod:
Dim i As Integer
Timer_tick kodumuz :
Kod:
If TextBox1.Text = "Forumtr de 5. yılım..." Then i = 0 Dim rnd As New Random(CInt(DateTime.Now.Millisecond)) Dim sb As New SolidBrush(Color.FromArgb(rnd.[Next](0, 255), rnd.[Next](0, 255), rnd.[Next](0, 255))) TextBox1.ForeColor = sb.Color End If i = i + 1 TextBox1.Text = "" TextBox1.Text += Microsoft.VisualBasic.Left("Forumtr de 5. yılım...", i)
Button1: kodumuz.
Kod:
Timer1.Interval = 50 Timer1.Start()
Umarim bir yerlerde kullanabilirsiniz.

Ne olduğunu merak edenler deneyebilir. Bu arada textbox taki text i surekli yazip siliyor her seferinde yeni bir renk kullanıyor.
__________________