Как вывести текст посимвольно в Label по таймеру? - Visual Basic .NET

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

Как подсчитать количество символов я знаю: Length. Но как вывести текст посимвольно используя эту функцию и таймер?

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

textual
                            Листинг программы 
                        

                                Dim S As String = "Как подсчитать количество символов я знаю: Length. Но как вывести текст посимвольно используя эту функцию и таймер?"
    Dim I As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text &= S(I)
        If I = S.Length - 1 Then Timer1.Stop()
        I += 1
    End Sub
                        