Visual Basic > Windows and Controls

Let your application wait for a certain time

Let your application wait for a certain time

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


Return