主题：控制文字滚动的范围

我先弄了一个标签

 

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Welcome")
lbl.Text = "今天是" & Date.Today() & ",本公司欢迎您!"

 

然后有个哥们给我在窗口计时器提供了一段代码，用以滚动文字，

 

e.Form.TimerEnabled = True
Dim lab1 As WinForm.Label = e.Form.Controls("Welcome")
If lab1.Width + lab1.Left = 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -6
End If

 

可现在的问题是，这个滚动的文字一直从左走，最后走得没影了，我的意思是把它控制在一定的范围内，从左边进去，再从右边出来，这样才是理啊，可怎么弄呢，再麻烦高手们一下，先谢谢啦

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

程总，谢谢你了，真想请你吃饭

请教一下，如何等整句全部从左边消失，再从右边出现，如此循环

 

Timertick事件

Dim lab1 As WinForm.Label = e.Form.Controls("Welcome")
If lab1.Width + lab1.Left <= 0 Then
    lab1.left = e.Form.Width
Else
    lab1.left = lab1.left -6
End If