[YousefOkasha]

(21-06-18, 03:46 AM)silverlight كتب :

كود :

Public Class Form1

   Dim length As Integer
   Dim counter As Integer
   Dim txt As String

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Text = "Welcome to Vb4arab"
       counter = 0
       length = Me.Text.Length
       txt = Me.Text
       Me.Text = ""
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       counter += 1
       If counter > length Then
           counter = 0
           Me.Text = ""
       Else
           Me.Text = txt.Substring(0, counter)
       End If
   End Sub

End Class

شكراً علي ردك