Закрытие приложение по таймеру после его бездействия

    'Таймер автоматического закрытия приложения
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Application.Exit()
    End Sub
 
    'Сброс таймера автоматического закрытия приложения
    Private Sub FormData_Click(sender As Object, e As EventArgs) Handles Me.Click
        Timer1.Enabled = False
        Timer1.Enabled = True
    End Sub

Dim interval60sec As Byte
...
    'Обнуляем interval60sec при перемещении Формы
    Private Sub FormData_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
        interval60sec = 0
    End Sub
    'Обнуляем interval60sec при клике по Форме
    Private Sub FormData_Click(sender As Object, e As EventArgs) Handles Me.Click
        interval60sec = 0
    End Sub
    'Обнуляем interval60sec при клике по Лейблам
    Private Sub Labels_Click(sender As Object, e As EventArgs) Handles LA.Click, Label1.Click, Label2.Click, Label3.Click, Label4.Click, Label5.Click, Label6.Click
        interval60sec = 0
    End Sub
    'Обнуляем interval60sec при клике по Текстбоксам
    Private Sub TextBoxes_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox2.Click, TextBox3.Click, TextBox4.Click, TextBox5.Click, TextBox6.Click
        interval60sec = 0
    End Sub
 
    'Таймер автоматического закрытия приложения
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If interval60sec < 60 Then
            interval60sec += 1
        ElseIf interval60sec = 60 Then
            Application.Exit()
        End If
    End Sub

Timer1.Enabled = False
Timer1.Interval = 60000
Timer1.Enabled = True

    'Таймер автоматического закрытия приложения
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If interval60sec < 60 Then
            interval60sec += 1
        Else
            Application.Exit()
        End If
    End Sub

'Таймер автоматического закрытия приложения
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Application.Exit()
    End Sub
 
    ' Сброс таймера автоматического закрытия приложения
    ' Например для Кнопок и ТекстБокса (Click и KeyDown)
    Private Sub FormData_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Click,Button1.Click, Button2.Click, Button3.Click,TextBox1.Click, TextBox1.KeyDown, TextBox2.Click, TextBox2.KeyDown
 
        Timer1.Enabled = False
        Timer1.Interval = 60000 '60 секунд
        Timer1.Enabled = True
 
    End Sub