Program That Types[ ALMOST RESOLVED!]

[Knowledge_is_Et]

Alacritiouses code should work, lemme just make it so you can copy and paste it into your form.

'Module!
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
private Sub Pause(Length As Long)
Dim OldTime As Long
OldTime = GetTickCount
Do
DoEvents
If GetTickCount >= OldTime + Length Then Exit Do
Loop
End Sub
 
private sub form_activate
dim strmessage as string
strmessage = "this is a test"
Dim i As Integer
For i = 1 To Len(strMessage)
Label1.Caption = Label1.Caption & Mid$(strMessage, i, 1)
Pause (100)
Next
 
end sub

that should work, just make sure to put a label on the form before you run it.