How can I stop shape after 5 seconds of moving?
I know how to move it and how to stop it but don't know how to make it stop IN 5 SECONDS.
This is the rest of the code that I have done but the 5 seconds part is still left. BTW, I tried to use loop but it didn't work out.
Thanks everyone in advance. :)
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Command1.Caption = "Move"
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 50
End Sub