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

名前

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

本文 もしかしてこういう事？ Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Click() Call DisplayText("それは夏の暑い深夜に起こった。" & vbCrLf) Call DisplayText("別に特別何かを感じたわけではない。 " & vbCrLf) Call DisplayText("ベッドから目覚めた僕は、その異変に気づいた。") End Sub Private Sub DisplayText(strText As String) Dim i As Integer For i = 1 To Len(strText) Form1.Print Mid$(strText, i, 1); Sleep 100 Next i End Sub