ejecutar aplicacion con retraso

[kraquem]

Hola a tod@s por favor necesito me ayuden con lo siguiente, necesito realizar un programa que se ejectute al iniciar windows, dicho programa debe iniciarce con un retraso de por lo menos 50 segundos, entonces desde un formulario en visual basic que muestre el contador de 50 segundos al cabo de los 50 segundos se debe ejecutar automaticamente la aplicacion en cuestion intente con el siguiente codigo pero no me funciona.

Código:

Private Sub Form_Load()
  Dim PauseTime, Start
    PauseTime = 50
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
       Loop
    End
    Shell "C:\Windows\Notepad.exe", vbMaximizedFocus
End Sub

agradesco de antemano la ayuda.

saludos

[erbuson]

Hola, el primer problema está en que después del Do Loop has puesto la instruccion End, antes de que se ejecute el Shell por lo que cancelas el programa.

Tema aparte es que no estás visualizando ningun contador, pero supongo que lo dejas para después.

Saludos

[lokoman]

Hola!!
Pon un Timer e intenta este codigo:

Public TiempoLimite As String

Private Sub Form_Load()
TiempoLimite = TimeValue(Time) + TimeValue("0:01")
End Sub

Private Sub Timer1_Timer()
If TimeValue(Time) = TiempoLimite Then
MsgBox "Ha pasado un minuto"
End If
End Sub

[erbuson]

Mira kraquem, si necesitas un contador, yo pondría un label1 con letras grandes, un Timer1 con Interval = 1000 (1 segundo) y este código

Private Sub Timer1_Timer()
Static Segundos As Integer
Segundos = Segundos + 1
Label1 = Format(50 - Segundos, "00")
DoEvents
If Segundos = 50 Then
Shell "C:\Windows\Notepad.exe", vbMaximizedFocus
End
End If
End Sub

Así funciona. Garantizado.

[kraquem]

Muchas gracias amigos por su valiosa ayuda me funciono a la perfeccion me salvaron de una.
Mil gracias

saludos.