[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
الموضوع هو كما اوضحت في ردي السابق لكنك لم توظف الكود فيما تريد
وبعد ان اوضحت طلبك اصبح الامر اكثر بساطة
الكود التالي سيكون في بوتون الذي بنفذ امر الخروج (يمكنك توظيفه في اي بوتون ينفذ امرا ما)
عند الضغط على البوتون ستتم المقارنة بين التاريخ المعرف فيه وتاريخ اليوم فإن كان تاريخ اليوم الحالي اصغر او يساوي  التاريخ المخزن فهذا يعني ان البوتون يعمل واما ان كان اكبر فهذا يعني ان الوقت انتهىوبذلك فإن البوتون لن ينفذ شيء من الاكواد التي بداخله اي سيتوقف عن العمل
جرب وغير التالريخ المخزن 

كود :

Private Sub Btn_Exit_Click(sender As Object, e As EventArgs) Handles Btn_Exit.Click
       Dim dd As String = "3/3/2021"
       If Now <= CDate(dd) Then
           Application.Exit()
       Else
           Exit Sub
       End If
   End Sub