これだと止まらないんですが、どうしたらいいですか？

あと、文字が普通のゲームみたいに一文字ずつ増えていくのはどうすれば出来ますか？

↓こっから下をプログラムの最初に入れてください Def Msg m$ f For L=1 To Len(m$) ?Mid$(m$,L-1,1) Vsync f Next End

使うときは MSG m$ f でm$に表示する文字列を、fに１文字当たりのフレーム数を入れて使ってください

あと最初の止まらない理由ですが 最初は何も押してないはずなので Button()!=16 0!=16 1 成立し、止まるはずです しかし、ＲＵＮでエンターでＡを押している可能性があるため 1行目又は2行目にVSYNCを入れ、BUTTONの中身に2を入れてみてください あと、3行目と4行目の間にVSYNCはさむと思ってる通りに動くと思います

どちらも回答ありがとうございます！ 助かりました！