ejecutar aplicacion con retraso

[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.