VB6 make application wait for a certain time

View: - 130

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