Это похоже на работу.Но мне нужно добавить заявление об отказе от ответственности, что я только что проверил его очень простым способом и не проверил на утечки памяти и т. Д.
Добавьте этот саб к вашему коду ..
Public Sub SetVar(ByRef variable As Integer, value As Integer, msDuration As Integer)
variable = value
Thread.Sleep(msDuration)
variable = 0
End Sub
Каждый раз, когда вы хотите установить значение переменной для периода времени, вставьте его в точку, где вы хотите изменить значение ..
Dim t As New Task(Sub()
SetVar(a, 100, 2000)
End Sub)
t.Start()