Public Class Form1
Dim iPos As Double = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 5
Timer1.Enabled = True
iPos -= Label1.Size.Width
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Left = iPos
If iPos <= Me.Size.Width Then
iPos += 1
Else
iPos = (0 - Label1.Size.Width)
End If
End Sub
End Class