Free Web Site - Free Web Space and Site Hosting - Web Hosting - Internet Store and Ecommerce Solution Provider - High Speed Internet
Search the Web

Delay For Several Seconds

VB Tips:  Timer

Sub Delay(secs!)
   Dim Start!
   Start! = Timer
   While (Timer < (Start! + secs!))
      DoEvents
   Wend
End Sub

Copyright (c) 1999 - 2001, robert han, all rigths are reserved.