让一行欢迎词从窗体的左侧逐渐移向右侧,当全部移出窗体右侧后,从窗体左侧开始移动,直到按下按钮停止移动!

窗体上添加一个命令按钮,一个计时器,一个标签,然后加入如下代码,点运行
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Label1.Caption = "欢迎使用"
Label1.FontSize = 20
Label1.ForeColor = vbBlue
Label1.AutoSize = True
Label1.Left = -Label1.Width
Label1.Top = (Form1.ScaleHeight - Label1.Height) / 3
Timer1.Interval = 10
Timer1.Enabled = True
Command1.Caption = "停止"
Command1.Move Form1.ScaleWidth - 1000, Form1.ScaleHeight - 600, 800, 400
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left + 30
If Label1.Left > Form1.ScaleWidth Then Label1.Left = -Label1.Width
End Sub

Private Sub Command1_Click()
Static a As Integer
a = Label1.Width
b = Label1.Left
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Timer1.Enabled = True
Timer1.Interval = 50