Autor
Bueno estaba googleando y me encontre con un source code de Titulo Animado .. ya lo prove y esta muy bueno
El titulo aparece letra por letra no aparece de golpe
Código:
Private Sub Form_Load()
CheckAgain
End Sub
Private Sub Timer1_Timer()
'****************************************
t = Left(a, b)
Form1.Caption = t
b = b + 1
If b > I Then b = 0
End Sub
Sub CheckAgain()
a = Text1.Text
I = Len(a)
b = 0
CheckAgain
End Sub
Private Sub Timer1_Timer()
'****************************************
t = Left(a, b)
Form1.Caption = t
b = b + 1
If b > I Then b = 0
End Sub
Sub CheckAgain()
a = Text1.Text
I = Len(a)
b = 0
Creditos: Faisal Software
En línea
si ya vi eso raul338 ese era mi problema
