关于程序开始的启动画面！

Question

各位大侠，程序开始的时候挺慢，我想叫它先显示一幅图片，然后启动程序后，图片自动消失，怎么处理？谢谢

Answer 1

http://expert.csdn.net/Expert/topic/1766/1766243.xml?temp=1.935977E-02
去看看吧！！一定解决

Answer 2

把启动画面放到一个窗体里，放一个定时器，到时间就Unload～

Answer 3

Sub Main()
frmSplash.show
Delay
frmMain.show
Unload frmSplash
End Sub
Sub Delay()
Dim timeStart As Integer
timeStart=Timer 
Do Until
Timer-timeStart>4'延时4秒
DoEvents
Loop
End Sub

Answer 4

请用VB的应用程序向导。
查看VB的自动源代码，
你可以学到很多知识。

Answer 5

楼上说的对，用自动向导生成原代码，下面就是自动生成的，包括登陆窗体，splash窗体
Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash
    fMainForm.Show
End Sub