Private Sub timer1_timer() If Label1.Left < 0 Then Label1.Move 150 Else Label1.Move -150 End If End Sub