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

السلام عليكم ورحمة الله وبركاته
اخي الكريم لم تذكر مايقوم به البوتون 
بالعموم اعتبرت ان البوتون يقوم باظهار رسالة ترحيب كلما تم تشغيل البرنامج حسب التاريخ المدخل
في حدث فورم لود تم استدعاء البوتون
فان كان اكبر من تاريخ اليوم يظهر الرسالة
اما ان كان تاريخ اليوم هو اكير سيتم الخروج من الحدث الذي يستعي البوتون

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox("Hello")
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim dd As String = "3/3/2021"

       If Now > CDate(dd) Then
           Exit Sub
       Else
           Button1_Click(Nothing, Nothing)

       End If

   End Sub

هذا مافهمت من سؤالك