'Splash screen vb3/4
'make a form; put
an image_control on
it
'no caption, no clipcontrols, no systembox
'borderstyle=fixed
'vb4 = shownintaskbar=no
'put the code in the form_load event
Sub Form_Load()
Top = (Screen.Height * 0.9) / 2 - Height / 2
Left = Screen.Width / 2 - Width / 2
Me.Show 'show this form
Me.Refresh
Load Form2 'load first form of youre application
'meanwhile it's doning all
the code in youre
'form2.load_event
Form2.Show 'ready? show
form
Unload Form1 'unload this one
End Sub
'ALSO:
'Make sure that youre StatupForm is form1
'Check it on
this way:
'Tools->Options->Project (vb4)
'Options->Project->StartUp Form (vb3)
Return