Código [Seleccionar]
'el timer tiene k tener interval =1000 y enabled=true
'variables globales
dim veces as int 'veces k se dispara el timer
const segundoshora=3600
Private Sub Timer1_Timer()
if veces=segundoshora then
Shell "c:\tuarchivo.ext"
veces=0
else
veces=veces+1
endif
End Sub