Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Delay(Seconds As Integer) 'Version: 1.001 'Purpose: To delay execution for the passed number of seconds Dim vStopTime As Variant On Error GoTo eh_delay vStopTime = DateAdd("s", Seconds, Now) Do While (Now < vStopTime) And gbStop = False Sleep 100 ' frmButtonBar.lblCurTime = Now() 'frmButtonBar.lblElasped = Format(Now() - Todo.Range("C1"), "hh:mm:ss") 'frmButtonBar.lblElaspedToday = Format(gDaysTaskTime + CVDate(frmButtonBar.lblElasped), "hh:mm:ss") DoEvents Loop Exit_delay: Exit Sub eh_delay: MsgBox "Error " & Err & " " & Error End Sub |