el interval del timer viene en milisegundois 1sg=1000msg xd

40*60*1000=2400000 milisegundos xd

pos me da que no se puede.... xd


1 a 65.535  Establece un intervalo (en milisegundos) que se hace efectivo cuando se establece True en la propiedad Enabled de un control Timer. Por ejemplo, un valor 10.000 equivale a 10 segundos. El máximo, 65.535 milisegundos, equivale a poco más de un minuto.

Perdon me e ekivocado en el codigo del timer seria asi:

la variable deberia de ser global y entera(integer)... xk sino en cada entrada se vuelve a dimensionar... xd
y si quieres ahorrarte el contador lo metes en el tag del timer...
timer()
  contador=contador+1
  if contador=40 then
     'orgia
     contador=0
  endif
end sub