3.3新機能のGOFSを使う方法もあります。 WHILE TRUE  GOFS X,0  INC X  VSYNC WEND