<font color=green>' benötigte API-Deklaration</font>
Private Declare Function WaitForSingleObject Lib _
  "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long

<font color=green>' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde</font>
Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function

Private Sub WriteText(T As TextBox, sText As String, iDelay As Integer)
  Dim i As Integer
 
  For i = 1 To Len(sText)
    T.Text = T.Text & Mid$(sText, i, 1)
    Wait iDelay
    T.Refresh
  Next i
End Sub

WriteText Text1, "Hallo", 150