Splash screen closed with timer event

[LD2020]

Hi, and thanks for reading my thread.

I have a workbook with several user forms. When the workbook opens I'd like to show frmSplashScreen for 3 seconds then close and have another form frmMain show. I've tried the following code and it opens frmSplashScreen ok but it does not automatically close the form. If I click the close box then in 3 seconds frmMain will show. Can someone help me correct this problem?

Private Sub Workbook_Open()

    frmSplashScreen.Show
    Application.Wait Now + TimeValue("00:00:03")
    frmSplashScreen.Hide

    Sheets("SC input").Select
    frmMain.Show

End Sub

Also, is there a way to remove the close box from a user form?

Thanks in advance for any help.