Splash Screens

[Miasri]

I would like to know how I can make a splash screen disappear, after a certain amount of time by using the timer control, and have the form of my program show up when the splash screen is gone.

[YoungBuck]

Create 2 Forms one name frmSplash and one named frmMain, and insert 1 timer on frmSplash

insert this code on frmSplash
[CODE]
Private Sub Form_Load()
Timer1.Interval = 1000 ' close to 1 second
End Sub

Private Sub Timer1_Timer()
Static iSeconds As Integer

'increase seconds every time sub is called
iSeconds = iSeconds + 1
If iSeconds = 15 Then

' get rid of splash
frmSplash.Hide
Unload frmSplash

' show main form
Load frmMain
frmMain.Show

End If
End Sub