Закрытие программы по срабатыванию таймера - VB

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

Есть программа с 1 формой. Можно ли сделать во 2 форме таймер, для которого значение бралось бы с текстбокса (часы, минуты) и через указанный промежуток времени программа полностью бы закрывалась?

Решение задачи: «Закрытие программы по срабатыванию таймера»

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

                            Option Explicit
Dim lngCount As Long
 
 
Private Sub Command1_Click()
Text1.Enabled = False
Timer1.Interval = 1000
Command1.Enabled = False
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = "Введите число минут:"
Command1.Caption = "Запустить счет"
End Sub
 
Private Sub Text1_Change()
lngCount = Val(Text1.Text) * 60
End Sub
 
Private Sub Timer1_Timer()
If lngCount = 0 Then End
lngCount = lngCount - 1
Label1.Caption = "До выхода из программы сталось " & lngCount & " секунд." ' или lngCount \ 60 & " минут."
End Sub
                        