如何让启动时闪动的窗口多停留一下（在线等，解决立刻结贴）

Question

速度太快了，根本什么都看不清嘛。
现在代码如下：
Sub Main()
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash
    fMainForm.Show
End Sub

Answer 1

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
sleep(second*1000)  '停留second秒

Answer 2

Sub Main()
    frmSplash.Show
End Sub在frmSplash中加一个timer控件记时
时间到时再fMainform.show
unload frmSplash

Answer 3

呵呵，来晚了。
把timer的Interval设长一点，或者使用sleep函数

Answer 4

按bluesky23的方法解决了，谢谢大家，结贴给分。