キング・Pさん！VSYNC 1のあとに FOR I=0 TO 1000:NEXT をいれると 動きが滑らかになりますよ！ 是非試してみてね！