Letra por letra

[truskyvb]

Supongo que se podrá mejorar. Espero que te sirva.

Option Explicit
Dim i As Integer
Dim matriz(20) As String

Private Sub Form_Load()
matriz(0) = "E"
matriz(1) = "s"
matriz(2) = "c"
matriz(3) = "r"
matriz(4) = "i"
matriz(5) = "b"
matriz(6) = "o"
matriz(7) = " "
matriz(8) = "l"
matriz(9) = "e"
matriz(10) = "t"
matriz(11) = "r"
matriz(12) = "a"
matriz(13) = " "
matriz(14) = "a"
matriz(15) = " "
matriz(16) = "l"
matriz(17) = "e"
matriz(18) = "t"
matriz(19) = "r"
matriz(20) = "a"
i = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption & matriz(i)
i = i + 1
If i = 21 Then
Timer1.Enabled = False
End If
End Sub