sub form1_load()
with timer1
    .interval=1000
    .enabled=true
end with
end subsub timer1_timer()
static minutes as byte
if minutes=7200 then    'two minutes
    minutes=0
    msgbox "Hello!"
else
    minutes=minutes+1
endif
end sub