Help!

[Max!]

Есть текст с пробелами и тд. он находится в Text1.Text надо чтоб прога по символьно переписала в Text2.Text через небольшо промежуток времени , тоесть берём дин символ выписываем его из Text1.Text в Text2.Tetx ждём какойто промежуток времени затем берём следущий и повторяем действия от начала текста до конца , как это реализовать ? С промежуткам времени это я сам добавлю а вот по символьно выписывать ???

[SHURUP]

Код: Выделить всё

Private Sub Timer1_Timer()
Static curSymbol As Integer
Text2.Text = Left(Text1.Text, curSymbol)
If curSymbol < Len(Text1) Then curSymbol = curSymbol + 1 Else Timer1.Enabled = False
End Sub

[Max!]

Огромное спасибо !!! То что нужно !