VB Code:
Private Sub Form_Load() Label1.Left = Me.Width - Label1.Width Me.Timer1.Interval = 10 Me.Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left - 10 If Label1.Left < Label1.Width * -1 Then Label1.Left = Me.Width End If End Sub