به سراغ من اگر بیایید

Private Sub Command1_Click()
Timer1.Enabled = True
Shape1.Visible = True
End Sub

 

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

 

Private Sub Form_Load()
Shape1.Visible = False
End Sub

 

Private Sub Timer1_Timer()
If Shape1.Shape >= 5 Then
Shape1.Shape = 0
End If
Shape1.Shape = Shape1.Shape + 1
End Sub

این برنامه تایمر است ودر زمان طراحی interval آن 1500 و enabled آن false است نام کامند1 شروع و نام کامند2 توقف است.