FOR I=0 TO 59 VSYNC 1 NEXT 1秒待ってる間になにか他にやらせたい処理があれば、ループの中に入れてみて下さい。