public Sub Delay(Time)dim ETime as integerEtime=Timerdo while (timer-Etime)< timeloopend sub
loop
end sub