[ahmed.zaki]

(01-03-21, 10:16 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
الموضوع هو كما اوضحت في ردي السابق لكنك لم توظف الكود فيما تريد
وبعد ان اوضحت طلبك اصبح الامر اكثر بساطة
الكود التالي سيكون في بوتون الذي بنفذ امر الخروج (يمكنك توظيفه في اي بوتون ينفذ امرا ما)
عند الضغط على البوتون ستتم المقارنة بين التاريخ المعرف فيه وتاريخ اليوم فإن كان تاريخ اليوم الحالي اصغر او يساوي  التاريخ المخزن فهذا يعني ان البوتون يعمل واما ان كان اكبر فهذا يعني ان الوقت انتهىوبذلك فإن البوتون لن ينفذ شيء من الاكواد التي بداخله اي سيتوقف عن العمل

جرب وغير التالريخ المخزن 

كود :

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

تسلم ايدك يا غالى  هوا فعلا عمل نفس الغرض  او مشابه للى انا عايزو  بس شكرا ليك ولمجهودك وهشتغل بيه