1° script:
codice:
public Prima as integer
Sub Main()
prima=timer
end sub
2° script:
codice:
Sub Main()
'Aspetta 15 secondi
dim Ora as integer
Prima = timer
do until ora - prima=15
   doevents
   ora=timer
loop
end sub
Spero ke funzioni (gli script sono un'altra cosa)