كيف استخدم ال Timer

Code:

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'لجعل التايمر يعمل كل خمس ثوانى بس ايه البطء ده؟
		Timer1.Interval = 5000
		Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		'تعريف المتغير استاتيك كى لا يفقد قيمته 
		Static i As Integer
		Dim chr As String, txt As String
		txt = TextBox1.Text
		'تحميل حرف حرف 
		chr = txt.Substring(i, 1)
		Label1.Text = Label1.Text & chr
		'ايقاف التايمر و الخروج من الاجراء فى حاله تحميل كل الحروف بداخل الليبل
		If i = txt.Length Then
			Timer1.Enabled = False
			Exit Sub
		End If
		i = i + 1
	End Sub
End Class

جزاك الله خير

ولكن تظهر رساله الخطاء التالية

chr = txt.Substring(i, 1)

Index and length must refer to a location within the string.

Parameter name: length

شكراً للأخ / half angel على الرد.... بس انا ايضا كنت بجهز الرد فأحببت ان اشارك بما كتبته من كود

 Dim I As Integer ' متغير عام
	Dim length As String ' متغير عام

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		Dim numm2, numm3, rr As String
		length = Len(TextBox1.Text)
		If I > length Then Exit Sub

		length = Len(TextBox1.Text)
		rr = TextBox1.Text
		numm2 = Microsoft.VisualBasic.Left(rr, I)
		Label1.Text = numm2
		I = I + 1

	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		I = 1
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Timer1.Interval = 5000
		Timer1.Enabled = True
	End Sub

اسف على الخطاء غير المقصود الكود بعد تصحيح الخطاء

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'لجعل التايمر يعمل كل خمس ثوانى بس ايه البطء ده؟
		Timer1.Interval = 1000
		Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		'تعريف المتغير استاتيك كى لا يفقد قيمته 
		Static i As Integer
		Dim chr As String, txt As String
		txt = TextBox1.Text
		'ايقاف التايمر و الخروج من الاجراء فى حاله تحميل كل الحروف بداخل الليبل
		If i = txt.Length Then
			Timer1.Enabled = False
			i = 0
			Exit Sub
		End If
		'تحميل حرف حرف 
		chr = txt.Substring(i, 1)
		Label1.Text = Label1.Text & chr
		i = i + 1
	End Sub