Code:
'Virtually the best typewriting code available.
'All others i have seen are much longer.
'I am now currently working on a "wait" function
'so there is no need for a timer.

Private Sub Timer1_Timer()
Typewrite "Testing"
End Sub

Private Function Typewrite(Word As String)
'Function Simply Processes Effect Of A Typewriter.
Static NextChar As Integer 'Move onto the next character.
Dim Length As Integer 'Used for increasing length.
Dim Display As String 'Letters to display.
NextChar = NextChar + 1 'Move onto the next letter.
Length = Length + 1 'Increase the length of the word.
Display = Mid$(Word, NextChar, Length) 'What to display.
Label1.Caption = Label1.Caption & Display 'Display!
End Function
If anyone has any ideas how to include a wait function then please offer me your opinions.