--
http://www.standards.com/; See Howard Kaikow's web site.
"shiro" wrote in message
...
Hi all,
how to automatically unload user forms
after 5 seconds from it's loading time.
( Just for a application welcome form )

Dim datNow As Date
txtMessage.Locked = True
datNow = Now + TimeValue("00:00::05")
Do Until datNow < Now
DoEvents
Loop
Unload Me