有个思路 可以通过改变标签控件的left值从而使标签移动 以下是代码 不过还没有调试过 如果有错误欢迎指出
![[呵呵]](/static/emoticons/u5475u5475.png)
dim k%
Private Sub form_load
k=100
timer1.interval=100
end sub
Private Sub Timer1.time
if label1.left+label1.width=form1.width then
k=-100
else if label1.left=0 then
k=100
end if
label1.left=label1.left+k
end sub