addobject "S309.Timer.1","Timer1",0,0  ' 

timer1.interval = 1000
timer1.enabled = true

sub timer1_timer()
  print now
end sub