Закрыть программу и удалить ее полностью по истечении моего таймера

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If IO.File.Exists("F:\dt_start.txt") Then
            Label1.Text = IO.File.ReadAllText("F:\dt_start.txt")
            Label4.Text = Now
            Timer1.Start()
            Dim myDT As DateTime = DateTime.Parse(Label1.Text)
            myDT = myDT.AddHours(1)
            Label6.Text = myDT
        Else
            Dim ms = Now
            System.IO.File.WriteAllText("F:\dt_start.txt", ms, System.Text.Encoding.Default)
            Label1.Text = IO.File.ReadAllText("F:\dt_start.txt")
            Label4.Text = Now
            Timer1.Start()
            Dim myDT As DateTime = DateTime.Parse(Label1.Text)
            myDT = myDT.AddHours(1)
            Label6.Text = myDT
        End If
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label4.Text = Now
        If Label4.Text = Label6.Text Then
            Timer1.Stop()
            MsgBox("Приложение будет удалено")
            IO.File.Delete("F:\dt_start.txt")
            Application.Exit()
            ' я сделал выход из формы и удаление тхт файла с текущей датой и временем
            ' тут прописываешь то, что необходимо сдеоать при истечении часа
            ' ты хотел удаление приложения, значит удаляй его
        End If
 
    End Sub