Label的ForeColor设置成红色，BackColor设置成Transparent.

Public Class Form1


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Left = Label1.Left - 100
        If Label1.Left + Label1.Width < 0 Then
            Label1.Left = Width
        End If
    End Sub
End Class