Мозги просто плавятся.
Для себя, разбор задачкиИзначально интервал таймера - 10 миллисекунд. При нажатии кнопки цифры в форме должны сменяться от 1 до 7, и замедляться, чтобы остановиться. Тэкс. Останавливается, когда интервал замедления увеличивается до 300 миллисекунд.
Увеличение:
Number1 = Number1 + 1
If Number1 > 7 Then Number1 = 1 - и так по кругу.
Замедление:
Timer1.Interval = 10
Timer1.Interval = Timer1.Interval + Zamedlenie1
Так, а когда интервал превысит допустимое значение 300, то он должен остановиться...
If Time1.Interval >300 Then
Time1.Enabled = False
Соответственно флажок насчитывает первую остановку из трех допустимых и
Flag = Flag + 1, потому что изначально значение у него - 0.
Так, с этим тоже разобрались.