_Sleep(15) ; Таймер на 15 секунд
MsgBox(0,"Пауза...","Время вышло :)")
Func _Sleep($iSec,$iX=10,$iY=10)
Local $hTimer = TimerInit(), $iTimer = 0
Do
$iTimer = Round(TimerDiff($hTimer)/1000,0)
ToolTip("Прошло "&$iTimer&" из "&$iSec&" секунд...",$iX,$iY,"Пауза...")
Sleep(250)
Until $iTimer >= $iSec
ToolTip("")
EndFunc