テキストボックスで文字を動かしたいです (ID:83874)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Text1, Timer1 をフォーム上に配置し、 下のコードを貼り付けて実行して下さい。 Private Sub Form_Load() Text1.Text = " 文字を入力してください" Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Text1.Text = Right(Text1.Text, 1) & Left(Text1.Text, Len(Text1.Text) - 1) End Sub