Как сделать, чтобы текст выводился поочередно буква за буквой через определенный промежуток времени? - VB

Формулировка задачи:

Еще раз доброго времени суток! Задача такая: есть текст, который нужно выводить плавно, буква за буквой (такой эффект многие наверняка видели в играх или фильмах). Наваял, к примеру, такой код:

                    Листинг программы
                
 
                        
                          
                    
'
Dim i, t, z
Private Sub Command1_Click()
'
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
'
z = 0
End Sub
 
Private Sub Timer1_Timer()
'
z = z + 1
Open ("filename") For Input As #1
For i = 1 To z
Line Input #1, t
Next i
Close #1
Text1.Text = Text1.Text & t
End Sub

Работать то работает, но только если текст в файле выглядит так: П р и в е т ! (т.е. вертикально). Можно забить и сказать, что главное - работает. Но, наверняка есть точно такое же решение, если бы текст был одной строкой и считывался просто по одному символу по таймеру. Может кто сталкивался? Помогите, пожалуйста! Заранее спасибо!

Решение задачи: «Как сделать, чтобы текст выводился поочередно буква за буквой через определенный промежуток времени?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim N, CF As String
Private Sub Form_Load()
   Dim File As String
   File = App.Path & "\test.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
End Sub
 
Private Sub Комманда1_Click()
Часы1.Interval = 100
Часы1.Enabled = True
End Sub
 
Private Sub Часы1_Timer()
Cls
N = N + 1
If N = Len(CF) Then N = 1
Print Left(CF, N)
 
End Sub