Private Function Run()
  Dim I As Integer
 
  Halt = False
 
  If Lauftext = Empty Then _
    Lauftext = Text1.Text
  Do Until Halt = True
 
    For I = 0 To 32000: DoEvents: Next
    DoEvents
 
    Lauftext = Lauftext & Mid(Lauftext, 1, 1)
 
    Lauftext = Mid(Lauftext, 2, Len(Lauftext) - 1)
 
    Text1.Text = Lauftext
    SendMessage ohWnd, WM_SETTEXT, 1, ByVal Text1.Text
  Loop
End Function
 
Private Sub cmd_lauflos_Click()
   Run
End Sub
Private Sub cmd_haltan_Click()
 
  Halt = True
  SendMessage ohWnd, WM_SETTEXT, 1, ByVal "Start"
End Sub