'Bu kodların çalışması için bir timer lazım intervali 10 olsun

Dim say, say1, say2, uzunluk As Integer
Dim msg
Private Sub form_load()
msg = Form1.Caption
uzunluk = Len(msg)
Timer1.Interval = 1
say2 = 1
say1 = 0
say = 1
End Sub
Private Sub timer1_timer()
If say2 = uzunluk Then say2 = 1: say1 = 0: say = 1: Form1.Caption = ""
If say1 = 255 Then say1 = 0
say1 = say1 + 1
If Chr(say1) = Left(msg, say) Then
Form1.Caption = Left(msg, say)
say2 = say2 + 1: say = say + 1
Form1.Caption = Left(msg, say) + Chr(say1)
End If
End Sub