VB编程如何让标签在窗体中来回滚动

补充：先从左往右  然后再从右往左  循环滚动
		

答案：
1楼的答案是对的。但在开始定义变量那里写反了，而且代码写得比较乱，不够清晰。
2楼的答案从开始的想法上就错了，所以代码虽然没有语法上的错误，也很清楚，但却有逻辑错误，不能实现要求的功能。
下面的是我写的，在窗体上添加1个Label和1个Timer，然后把代码复制进去就可以了。
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Static b As Boolean '我这里用的是静态变量，当然也可以跟1楼一样使用窗体级变量或者全局变量

If Label1.Left <= 0 Or Label1.Left + Label1.Width >= Me.Width Then b = Not b
Label1.Left = Label1.Left + IIf(b, -75, 75)
End Sub
在程序中设置一个标志变量（最好为全局变量）：如：
dim integer as MoveTag
MoveTag=1       '初始化1，开始时为左移
由时钟控件控制标签的移动
      if MoveTag then
          label1.left=label1.left - 10 * MoveTag
          if label1.left<0 then 
             MoveTag=-1
          else 
            if label1.left + label1.width >form1.width then
               MoveTag=1
            end if 
          end if
     end if
        
1、当标签的左端到达窗体的
'''窗体添加一个Label和一个Timer控件
Private Sub Form_Load ()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer () 'Label控件左右移动
If Label1.Left >= 0 And Label1.Left + Label1.Width <= Me.Width Then
Label1.Left = Label1.Left + 80
Else
Label1.Left = Label1.Left - 80
End If

上一个：一个困惑我一长时间的VB编程问题？
下一个：关于VB编程的问题 高不高手都来看看