vb如何在窗体中自左至右逐渐显示文字

问题描述：

vb如何在text中自左至右逐渐显示文字

问题解答：

把文本放到字符串里，逐个赋值行不行

这样：
窗体中控件：Command1 一个按钮 Text1 一个文本框

代码：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim temp$
temp$ = "我的字符串"
For i = 1 To Len(temp$)
Text1 = Left(temp$, i)
DoEvents
Sleep 200
Next
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
Timer1.Interval = 700
Text1 = "vb如何在窗体中自左至右逐渐显示文字?"
End Sub

Private Sub Timer1_Timer()
Text1 = Right(Text1, Len(Text1) - 1) & Left(Text1, 1)
End Sub