Я хочу добавить дни истечения срока действия в форму 1

---

Привет, братан

Я хочу добавить дни истечения срока действия в графе, как текущая дата - 1 год разрыв детали истечения срока действия

Я уже пробовал, но он показывал "нет". но через 1 год (т. е. 365 дней) или за 1 неделю до этого он должен уведомить о дате истечения срока действия, а через 365 дней он должен закрыть приложение и попросить купить новый лицензионный ключ у создателя..


Пожалуйста, помогите мне в этом

Что я уже пробовал:

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        Dim firstDate As Date
        Dim SecondDate As Date



        firstDate = Now
        SecondDate = "2021-08-13"

        Label1.Text = DateDiff(DateInterval.Day, firstDate, SecondDate)
        

    End Sub

---