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.
Printable View
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.
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