JuanVB
28 de Octubre del 2003

Hola amigos tengo un pequeño programa que debe ejecutar cierto exe , en cierto tiempo ,esta funcionando pero paralelamente me arroja un error en el AppActivate MyAppID

el codigo completo es :

Private Sub reloj_Timer()
reloj.Interval = 3000

Dim MyAppID, ReturnValue
MyAppID = Shell("C:Archivos de programaQK SMTP Serversmtpserver.exe", 1)
AppActivate MyAppID 'EN ESTE ME MARCA EL ERROR'
End Sub

llama al programa pero el error de procedimiento no valido no lopuedo sacar, si alguine me puede ayudar

JuanVB

Baltasar
28 de Octubre del 2003

Has puesto la sentencia Dim después de reloj.interval=3000, y eso no cumple. Has de poner primero las declaraciones (dim) y luego el código.
Espero que ese sea el error.