For I=0 to 100 Gpset I,40 Vsync 1 Next ForやGpsetの数値を変えたりすると良いかと思います。