Public 
sub
 Pause(ByVal nSecond 
as
 Single)
   
   
dim
 t0 
as
 Single
   t0 = Timer
   
do
 While 
timer
 - t0 < nSecond
      
dim
 dummy 
as
 Integer

      dummy = DoEvents()
      ' if we cross midnight, back up one day
      If 
timer
 < t0 Then
         t0 = t0 - CLng(24) * CLng(60) * CLng(60)
      End If
   Loop

End Sub