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.