Код для вычитания секунд - VB

Формулировка задачи:

У меня есть кнопка (y) и текст (rude1) я хочу сделать шахту которая к тексту(money) будет добовлять некоторое количества денег например:100 за 5 секунд каждый раз. Тоест код должен быть на словах таким Если значение rude1 = 0 то rude1 = 5 (Ну это я могу сделать вопрос в следующем) и тут или в другом месте, во общем где вам удобнее нужен код с вычитание каждую секунду -1 у текста (rude1) . Заранее спасибо

Решение задачи: «Код для вычитания секунд»

textual
                            Листинг программы 
                        

                            Private Sub Timer1_Timer()
rude1.Text = Val(rude1.Text) - 1
End Sub
                        