Scrolling label

[ayesha16]

Hi,

I wanted to know how to scroll a label from left to right and stop scrolling when the label reaches the right border of the form.please help me out in this.

[manavo11]

The only problem it that it flickers a bit...

Private Sub Form_Load()
 ScaleMode = vbPixels 'It goes faster with pixels
 Timer1.Interval = 1
 Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 Label1.Left = Label1.Left + 1
 If Label1.Left + Label1.Width = Form1.ScaleWidth Then
  Timer1.Enabled = False
 End If
End Sub