TypeWriter Effect (code included in post)

[BeholderOf]

for a label change the declaration to:

Public Sub TypeWriter(txtt As Label, time As Single, text As String)
''^^^ make it a label instead of a textbox

and then change the .text property to caption:

txtt.Caption = txtt.Caption & Mid(text,progress,1)