| 幻魔の公子です。
エラーの起こる原因は見当もつきません。 しかし、そこを実行しなければエラーがでないのであれば、そこを削ってみてはいかがでしょう? For文からWait 40のところを以下のように変えれば、ほとんど同じような動作をするはずです。
For i = 1 To 50 ClearPicture Font 42pt #FF0000 Italic Bold PaintPicture タイトルサンダンサー.bmp - - 347 500 ネガポジ反転 PaintString (4 * i) 400 Sundancer Refresh Wait 1 Next
Wait 40
カウンタが50の際の以下の二つは、つまり同じでしょう? 他の部分にも特に変化もない。となれば、別に無くても影響ないわけです。
PaintString (4 * i) 400 Sundancer PaintString 200 400 Sundancer
ここを削ってなおエラーがでるかどうか、確認してみてください。 それでは。
|