VB 6 Self Typing Demo

 

Option Explicit

 

Private Const FIXED_TEXT = "This is a demo of selftyping textbox."

 

Private Sub Form_Load()

    Timer1.Interval = 100

End Sub

 

Private Sub Timer1_Timer()

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