'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