Private Sub Form_Load() Timer1.Interval = 500End SubPrivate Sub Timer1_Timer() Text1.Left = Text1.Left + 500End Sub