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

名前

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

本文 改の改良です Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private blnStop As Boolean Private strLabel As String Private lngLen As Long Private Sub Command1_Click() blnStop = False If strLabel <> vbNullString Then Label1.Caption = strLabel End If Do Label1.Caption = Mid$(Label1.Caption, 2, lngLen) & Mid$(Label1.Caption, 1, 1) Sleep 500 DoEvents If blnStop = True Then strLabel = Label1.Caption Exit Do End If Loop End Sub Private Sub Command2_Click() blnStop = True End Sub Private Sub Form_Load() Label1.Caption = "あいうえお " lngLen = Len(Label1.Caption) End Sub