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