一个简单的vb文本控件问题

[ronaldo17]

请问各位大虾对于vb中这样使text控件中的文字自左向右循环移动,我想的是
text1.left=left-1 和 text1.left=text1.left-1都不行
请各位大虾帮帮忙

[fling_boy]

Option Explicit

Private Const sMoveText As String = "abcdefghijklmnopqrstuvwxyz"
Private Const lTextLen As Long = 26

Private Sub Timer1_Timer()
Static i As Long
i = i Mod 26
i = i + 1
Text1.Text = Mid(sMoveText, i) & Left(sMoveText, i)
End Sub

[michaelzhao1978]

timer1 的 interval值自己看着办
Private Sub Timer1_Timer()
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1) & Mid(Text1.Text, 1, 1)

End Sub

[davidwx]

Private Sub Timer1_Timer()
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1) & Left(Text1.Text, 1)
End Sub

[ronaldo17]

谢谢，你的意思是还要加一个timer控件，那么能不能象delphi那样简单的用一句代码就实现，还有从常例来看 Private Const sMoveText As String = "abcdefghijklmnopqrstuvwxyz"这一句中引号部分是滚动的字体，但它和我的文本控件类容不相同，我要滚动text4中的类容，还有具体实现方法说一说

[ronaldo17]

davidwx(学习，提高，不吵架）的方法好象行不通哟，

[ronaldo17]

非常感谢各位，我以完成了！