Dim startright As String
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
startright = Text1.Left
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = 10 * HScroll1.Value / 10
End Sub

Private Sub Timer1_Timer()
Text1.Left = Text1.Left + 20
If Text1.Left < 0 Then
Text1.Left = startright
End If
End Sub
问一下，这个代码为什么用“Text1.Left = Text1.Left - 20
”就能实现Text1.Left = startright，，而Text1.Left = Text1.Left + 20，就不能实现text1.left=startright
我做的是一个自己会移动的text1。在这里，先谢谢了！

只想着语法出问题，没想过这个，你这样一说就明白了。十分感谢！

那要怎么改，才能text1.left=startleft

我要他从初始位置移动到右侧，然后从右侧移动到初始位置，这样一直循环。要做到这样的效果，代码要怎么写？

我想要text1从初始位置移到到右侧，再从右侧移动到初始位置，一直循环，又要加什么代码？