ループ内に VSINC IF RND(2)THEN CLS を入れてみたら…