XProfan

cls
Set("Decimals",1)
var time%=&GetTickCount
var text&=Create("Text",%hwnd,"",20,20,120,20)

while 1

    sleep 100
    Case &GetTickCount-time%<180000 : Settext text&,Str$((&GetTickCount-time%)/1000) + "  Sekunden"

Endwhile

cls
Set("Decimals",1)
var time%=&GetTickCount
var text&=Create("Text",%hwnd,"",20,20,120,20)

while 1

    sleep 100
    Case &GetTickCount-time%<180000 : Settext text&,Str$((180000-(&GetTickCount-time%))/1000) + "  Sekunden"

Endwhile