Private Sub Command2_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + Val(Text1.Text)End Sub