Non mi funziona la Splash

[ladyBlu]

non hai dichiarato Form1; scrivi così:

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

e usa i tag [*code][*/code] x scrivere il codice... è più leggibile...