VB问题:请问哪位朋友有制作启动时的展示屏幕的例子,能否发一个给小弟

'这是我的一段代码,你看看有没有帮助
'最好是以Sub Main 作为启动对象,控制会方便些Public Sub Main()

    '显示Splash窗体
    frmSplash.Show
    frmSplash.Refresh

    '装入主窗体,但不显示
    Load frmMain
    '到这时一直都只显示Splash窗体

    '清除Splash窗体,显示主窗体
    Unload frmSplash
    frmMain.Show vbModal
End Sub