Declare Handle btn1, btn2, btn3, grid, Long ende, pid
 
 Window 640, 400
 btn1 = Create("Button", %HWnd, "Suspend", 10, 10, 80, 25)
 btn2 = Create("Button", %HWnd, "Resume", 100, 10, 80, 25)
 btn3 = Create("Button", %HWnd, "Ende",   500, 10, 80, 25)
 grid = Create("GridBox", %HWnd, "Spalte 1;0;80;Spalte 2;0;80;Spalte3;0;80", 0, 10, 80, 280, 200)
 
 ende = 0
 pid = 0
 
 UserMessages $1000
 
 pid = pExec("|Schleife", %HWnd, grid)
 
 WhileNot ende
   WaitInput
   If Clicked(btn1)
      Process("Suspend", pid)
   ElseIf Clicked(btn2)
     Process("Resume", pid)
   ElseIf Clicked(btn3)
      Ende = 1
   EndIf
   If %UMessage = $1000
       MessageBox("Schleife hat aufgehört !", "Info", 0)
   EndIf    
 EndWhile
 
 If pid > 0
    Process("Kill", pid, 0)
 EndIf
 End
 
 Proc Schleife
 Parameters Handle win, tabelle
 Declare Long i
 For i, 1, 100
      WhileLoop 1, 10
          AddString(tabelle, Str$(&LOOP) + "|" + Str$(&LOOP * 2) + "|" + Str$(&LOOP * 3))
          Sleep 100
          ' Das Sleep ist hier nur drin, damit man den Fortschritt und
          ' damit die Anzeige in der Tabelle besser sieht. Andernfalls
          ' rutscht es zu schnell durch.
      EndWhile
 EndFor
 SendMessage(win, $1000, 0, 0)
 EndProc