splash screen question

hello,

how do i make a splash screen load and stay there while the main program loads and then close?
(im new with splash screens)

please helpp!

Add to a Module:

Code:

---

Sub Main
    frmSplash.Show
    'Do loading stuff for frmMain here
    Unload frmSplash
    frmMain.Show
End Sub

---

THaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaanks!!!!

Or you can let your main form load the splash screen.

Code:

---

Private Sub Form_Load()
  'this is so the splash screen stay on top of your main form
    frmSplash.Show vbModeLess, Me
    Me.Show
    'other init code
    Unload frmSplash
End Sub

---