For I=1 to 255 Bgmsetd i+127,"@bgm"+str$(i) Next 番号ズレてたらゴメンネ。