'Pon este codigo en el form1_load():
Call Espera(frmPrincipal_inicio, 3, FrmPrincipal_Password)
' y este otro en un modulo de clase
Sub Espera(Inicio As Form, Segundos As Single, Fin As Form)
Dim ComienzoSeg As Single
Dim FinSeg As Single
Inicio.Show vbModal - 1
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
Unload Inicio
Fin.Show vbModal - 1
Fin.Refresh
End Sub
' la variable inicio seria el formulario de presentacion o inicio, la variable segundos es el tiempo de duracion y la variable fin el el formulario al cual salta.
si tienes alguna duda no dejes de escribir a
[email protected]
o a
[email protected]