Splash Screen

i have spash screen that runs for about 10 seconds, would like to reduce to about 4 seconds any ideas

seee script below.

Option Compare Database
Option Explicit

Private Sub Form_Close()
DoCmd.OpenForm "Switchboard"
End Sub

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer

DoCmd.Close

Exit_Form_Timer:
Exit Sub

Err_Form_Timer:
MsgBox Err.Description, , "ASSETSonTRACK"
Resume Exit_Form_Timer

End Sub
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command21_Click:
Exit Sub

Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click

End Sub
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command23_Click:
Exit Sub

Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click

End Sub