En el formulario frmSplash:
Coloca un control Timer en cualquier parte del formulario y copia este código:
Código:
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Me.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static Tiempo As Integer
Tiempo = Tiempo + 1
If Tiempo = 5 Then
Timer1.Enabled = False
Unload Me
End If
End Sub
El frmSplash estará visible durante cinco segundos y después se descargará.
Para que no se pueda cerrar desde el Form principal lo llamas así:
Código:
frmSplash.Show vbModal, Me