ただ、残念なことに、この方法だと正しいfpsは出せません。なぜなら、1フレームは大体16.6msecくらいなんですが、MILLISECは整数なので「.6」の部分が扱えないためです。なるべく正確なfpsを出すには、次のようにして60フレームごとにfpsを計算するのはいかがでしょうか？ WHILE TRUE MS=MILLISEC FOR I=0 TO 59:VSYNC 1:NEXT I ?60*1000/(MILLISEC-MS) WEND