VB 6 Self Typing Demo 2

 

Option Explicit

 

Private Const FIXED_TEXT = "This is a demo of self a typing textbox effect."

 

Private Sub Form_Load()

    Timer1.Interval = 300

End Sub

 

Private Sub Timer1_Timer()

Timer1.Interval = 150 * Rnd

Static i%

 

    i = i + 1

    Text1.Text = Text1.Text & Mid(FIXED_TEXT, i, 1)

    If Text1.Text = FIXED_TEXT Then Timer1.Enabled = False

 

End Sub