VB Code:
  1. Private Sub Form_Load()
  2.  
  3.     Label1.Left = Me.Width - Label1.Width
  4.  
  5.     Me.Timer1.Interval = 10
  6.  
  7.     Me.Timer1.Enabled = True
  8.  
  9. End Sub
  10.  
  11. Private Sub Timer1_Timer()
  12.  
  13.     Label1.Left = Label1.Left - 10
  14.  
  15.     If Label1.Left < Label1.Width * -1 Then
  16.  
  17.         Label1.Left = Me.Width
  18.  
  19.     End If
  20.  
  21. End Sub