Make the splash screen the very first form to startup and then put this code:

Code:
Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Load form1 'starts the events in Form_Load on form1
Sleep 3000 '3 second time out
Form1.Show 'Show form1
Unload Me 'Unload Splash Screen
End Sub