Splash Screens

[trip85]

I have a splash screen in my application that was created using the application wizard. Is there anyway to increase the amount of time thye splash screen stays visisble on the screen when the application is loading?

You can place a Timer on your Splash Screen and make it stay for a certain amount of time, or you can use the Sleep API and place the following code right before you unload the Form and Load the new one.

Sleep(1000)

Here, I just took the Code from the module it creates. When you add it, it should look like this.

Public fMainForm As frmMain
' Added the Sleep API
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Sub Main()
    frmSplash.Show
    frmSplash.Refresh
    Sleep (1500) ' Sleep(pause) for 1.5 seconds
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
End Sub

[trip85]

Thanks for the info, it was very helpful.