delay on startup

i've made a program where I have a startupscreen. But i don't see the screen. How can i make stay onscreen for say like 3-4 seconds ??

There are a number of ways to do this...

Here is one way:

Suppose you have a splash screen (frmSplash) which you wish to show before your main form (frmMain) loads.

In the frmMain load event you could have....

private sub form_load()
dim t as double
frmSplash.show
t = now + 3/86400# 'get current time and add 3 seconds
doevents
'continue with other loading code....
'....
'....

while t > now 'wait for delay to run out...
doevents
wend
unload frmSplash
end sub


In frmSplash itself, you could have a "Close" button, but do NOT unload the form from this button, Hide it instead. Otherwise, you will get an error when the delay runs out and the main form attempts to unload a form that is already unloaded...




"I have a plan so cunning you could put a tail on it and call it a weasel!" - Edmund Blackadder