Visual Basic > Windows and Controls sample source codes

 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



Privacy Policy | Link to Us | Links