Program That Types[ ALMOST RESOLVED!]

[alacritous]

Dim CANCELIT As Boolean
 
Private Sub Command1_Click()
Label1.Caption = ""
Add (Text1.Text)
End Sub
 
Private Sub Command2_Click()
CANCELIT = True
End Sub
 
Function Add(strMessage As String) As String
Dim i As Integer
For i = 1 To Len(strMessage)
If CANCELIT = True Then
CANCELIT = False
Exit Function
End If
Sendkeys Mid$(strMessage, i, 1)
Pause (100)
Next
End Function

Command1, Command2, Label1, Text1

Works for me...
*CHEERS*
alacritous