XProfan

CLS
Declare int t, d, h, m, s, start, ende
t = &gettickcount
start = 10 * 1000'Zeit in Millisekunden
ende = 0 * 1000' Zum Hochzählen start und ende vertauschen

While 1

    Sleep 100
    d = Abs(If(start>ende,start+1000,start*-1)-(&gettickcount - t))
    h = Abs((d mod 86400000) /3600000)
    m = Abs((d mod 3600000) / 60000)
    s = Abs((d mod 60000) / 1000)
    Settext %hwnd, Str$(h) + "h; " + Str$(m) + "m; "+Str$(s)+"s"

    If If(start>ende,d<=ende+100,d>=ende+100)

        Messagebox("Die Zeit ist abgelaufen","MELDUNG",0)
        break

    EndIf

EndWhile