I have the following code:
Option Explicit
Function Wait (Delay As Integer, DispHrglass As Integer)
Dim DelayEnd As Double
DoCmd.Hourglass DispHrglass
DelayEnd = DateAdd("s", Delay, Now)
While DateDiff("s", Now, DelayEnd)>0
Wend
DoCmd.Hourglass False
End Function
This function work when I test...