Private Sub Timer1_Timer()Label1.Left = Label1.Left + 100If Label1.Left > 13000 Then Label1.Left = 0End IfEnd Sub