Private Sub Timer1_Timer()If Label1.Left > Me.Width Then Label1.Left = -Label1.WidthEnd IfLabel1.Left = Label1.Left + HScroll1.ValueEnd Sub