necesito demorar el frmsplash

[writis]

hola nuevamente pido ayuda, hice un directorio telefonico muy practico ya que me ayuda a buscar los datos por numero, apellido, nombre, direccion y barrio incluso solo colocando partes del nombre sea en mayusculas o minusculas, total ustedes saben mas de eso que yo, para mi es sensacional pero tengo un pequeño inconveniente, necesito que el frmSplash se demore unos cinco segundos al frente de la aplicacion cuando esta se inicie ya saben a modo de presentacion, es que aparece muy rapido y ni se alcanza a ver. agradezco de antemano su ayuda.


"Aprende algo útil cada día... y no sentiras haber desperdiciado ese dia" (writis)

[Avellaneda]

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

[writis]

Gracias avellaneda me funciono perfecto cada parte del codigo.