Non mi funziona la Splash

[dops]

Sub Main()
frmSplash.Show 1
frmSplash.Refresh
Set Form1 = New frmMain
Load Form1
Unload frmSplash
Form1.Show
End Sub

niente manco mi funziona..