There must be something wrong with me... I do it the old way

private sub form_load ()

Dim pizza

open pizza
call oven()
call timer()


end sub

private sub oven()

Do while oven <> heated
wait
loop

insert pizza

end sub

private sub timer()

timer.value = 15*60
timer.enabled = true
Do until timer = 0
timer.value = timer.value -1
loop

get pizza
close oven
timer.enable = false

end sub