Label的ForeColor设置成红色，BackColor设置成Transparent.
Public Class Form1Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickLabel1.Left = Label1.Left - 100If Label1.Left + Label1.Width < 0 ThenLabel1.Left = WidthEnd IfEnd Sub
End Class
)
