| Public Sub Wait(seconds) '-- Turn timer on Timer1.Enabled = True '-- Set Timer Interval Me.Timer1.Interval = 1000 * seconds While Me.Timer1.Interval > 0 DoEvents Wend '-- Turn timer off Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Timer1.Interval = 0 End Sub |
The Wait function |
Freelance ASP PHP web development | Web developer India Web development India| Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design