Type TFormProgress
	Method Run()
		Local timer:TTimer = CreateTimer(1)
		While True
			WaitEvent()
			Self.gLbState.SetText(Self.infoMsg)
			If Self.status = TFormProgress.STATUS_STOP
				Return
			End If
			If Self.stShowText
				Self.stShowText = False
				Self.gLbState.SetShow(False)
			Else
				Self.stShowText = True
				Self.gLbState.SetShow(True)
			End If
			Print("test")
		Wend
	End Method

	Function RunAsThread:Object(o:Object)
		Local tmpO:TFormProgress = TFormProgress(o)
		tmpO.Ini()
		tmpO.Show()
		tmpO.Run()
		tmpO.Hide()
		tmpO.Finish()
		Return Null
	End Function
End Type

Local tmpO:TFormProgress = New TFormProgress
CreateThread(TFormProgress.RunAsThread, tmpO)
' Main Programm läuft weiter: Durchsuchen von Verzeichnissen