sub SleepN( iWait as integer )
  static as double fSync
  if abs(timer-fSync) > .5 then fSync = timer
  while (timer-fSync) < (1/(1000/iWait))
    sleep 1,1
  wend
  fSync += (1/(1000/iWait))
end sub