Question

VB:程序能使一个Label1能从左至右来回移动?

Label1能从左至右来回移动就是:从左边进入,当Label1的右端碰到FORM的时候,Label1就向右边移动,当Label1的左端碰到FORM的时候就向左边移动,依次类推...
我要实现来回的。。。

Answer 1

用如下代码可实现：
Option Explicit

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left + Label1.Width >= Form1.Width Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub

Answer 2

用Timer写代码，控制Label1的位置不就行了。。。。
用Label1的位置与Form的宽、高比较来判断是否碰边

Answer 3

在timer1_timer事件中写可以速度控件在百分之一秒，剩下的就如楼上的那位说的。