[Genius Live]

كود :

   Dim a As Date = " اكتب التاريخ الذي تريده هنا مثلاً 31-12-2016"
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       'لو تاريخ اليوم اصغر من التاريخ المطلوب بخمسة ايام أظهر رسالة
       If Today < a.AddDays(-5) Then
           MsgBox("اكتب رسالتك هنا")
       End If
   End Sub