#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <ListviewConstants.au3>
#include <ListboxConstants.au3>

ablauf("Text",100,100,800,20)
For $i=1 To 100
$erg=ablauf("Text "&$i)
Sleep(100)
If $erg=1 Then Exit
Next
GUIDelete()
; ----------------------------------------------------------------
Func ablauf($zeile,$xpos=10,$ypos=10,$breite=10,$zeilenanzahl=1)
Global $ablaufbeginn,$ablaufhandl
Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m
$font="Arial"
If $ablaufbeginn = "" Then
	$ablaufbeginn = 1
    $hoehe=$zeilenanzahl*15
    GUICreate("Ablauf", $breite+20, $hoehe+20, $xpos,$ypos)
    $ablaufhandl= GUICtrlCreateList($zeile, 10, 10, $breite, $hoehe) 
    GUICtrlSetFont(-1, 10, 400, 0, $font) 	; Schriftart und -größe
    GUISetState()
	GUICtrlSetData($ablaufhandl , $zeile)
Else 
	GUICtrlSetData($ablaufhandl , $zeile)
EndIf
$return=0
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then $return=1 ;  Klick auf "Fenster schießen"
Return $return
EndFunc