テキストを左から流して表示するには？ (ID:121241)

名前

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

本文 あんびさんのを改良 Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Dim i As Long Dim txtMSG As String Dim lngLen As Long Dim str As String Label1.Caption = "あいうえお " lngLen = Len(Label1.Caption) i = 1 Do Label1.Caption = Mid$(Label1.Caption, 2, lngLen) & Mid$(Label1.Caption, 1, 1) Sleep 500 DoEvents Loop End Sub で、どうですか？