Thread: Watermarks
View Single Post
  #8  
Old 09-10-2012, 18:45
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

HI
I would use a simple delay function like this.

Code:
Function Wait(sngWaitMax As Single) As Boolean
    Dim sngStartTime As Single
    sngStartTime = Timer
    Do While (Timer - sngStartTime) < sngWaitMax
        DoEvents
    Loop
End Function
You can make a small modeless form appear with all info, and then the form will close after a few seconds.

~John
Reply With Quote