Question

vb中设置标签从左向右滚动，标签右端在窗体右端消失后立刻从窗体左端出现，如何实现？

好吧，声明，不是标签一直自左向右滚动到消失就完事的，也不是等到标签左端也消失后才让标签右端从窗体左端出现。
而是当标签右端从窗体右端消失后立刻出现在窗体左端。
附截图，运行时应出现如截图画面。

Answer 1

Dim i As Integer, n As Integer
Private Sub Form_Load()
'label1与格式label2一样，但label2初始无值
Label1.Caption = "内蒙古欢迎你"
Label1.AutoSize = True
Label2.Caption = ""
Label2.Visible = False
Label2.Left = 0
Label2.Top = Label1.Top
If Me.Width / Label1.Width > 1.5 Then Timer1.Enabled = True
i = 1
n = Len(Trim(Label1.Caption))
End Sub

Private Sub Timer1_Timer()
If Len(Trim(Label1.Caption)) > 0 Then Label1.Left = Label1.Left + 50

If Len(Trim(Label2.Caption)) > 0 Then Label2.Left = Label2.Left + 50

If Label1.Left + Label1.Width > Me.Width Then
If Len(Trim(Label1.Caption)) > 0 Then
Label2.Visible = True
Label2.Caption = Right(Label1.Caption, 1) + Label2.Caption
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
If Len(Trim(Label2.Caption)) > 1 Then Label2.Left = Label2.Left - Label2.FontSize * (Screen.TwipsPerPixelX + 5)
If Len(Trim(Label1.Caption)) = 0 Then
Label1.Left = 0
Label1.Visible = False
m = True
End If
End If
End If
If Label2.Left + Label2.Width > Me.Width Then
If Len(Trim(Label2.Caption)) > 0 Then
Label1.Visible = True
Label1.Caption = Right(Label2.Caption, 1) + Label1.Caption
Label2.Caption = Left(Label2.Caption, Len(Label2.Caption) - 1)
If Len(Trim(Label1.Caption)) > 1 Then Label1.Left = Label1.Left - Label1.FontSize * (Screen.TwipsPerPixelX + 5)
If Len(Trim(Label2.Caption)) = 0 Then
Label2.Left = 0
Label2.Visible = False
m = False
End If
End If
End If
End Sub

Answer 2

''两个标签设为同一控件组,别为Label1(0),Label1(1),
Private Sub Form_Load()
Me.WindowState = 2
Me.BackColor = RGB(0, 255, 255)

For i = 0 To 1
Label1(i).AutoSize = True
Label1(i).BackStyle = 0

Label1(i).Left = Me.Width / 2 - Label1(i).Width / 2
Label1(i).FontSize = 60
Label1(i).Caption = "内蒙古欢迎你"
Next

Timer1.Interval = 20
Timer1.Enabled = True
End Sub

Private Sub Form_Resize()
If Me.Height > Label1(0).Height Then
Label1(0).Top = Me.Height / 2 - Label1(0).Height / 2
Label1(1).Top = Me.Height / 2 - Label1(1).Height / 2
End If
End Sub

Private Sub Timer1_Timer()
For i = 0 To 1
If Label1(i).Left < 0 Then
Label1(1 - i).Left = Me.Width + Label1(i).Left
End If
Label1(i).Left = Label1(i).Left - 50
Next
End Sub