Sub Timer1Timer(Sender) If (Label1.Width + Label1.Left) > 0 Then Label1.Left = Label1.Left - CInt(Form.Width / 15) Else Label1.Left = Form.Width End IfEnd Sub