[emamtron2014]

كود :

انشئ متغيران احدهما  SDate  والاخر NDate  من نوع Date'
If My.Settings.SDate = Nothing Then

               My.Settings.SDate = Now.Date
               My.Settings.Save()
           End If

           Dim sdate As Date = My.Settings.SDate
           Dim Ndate As Date = Now.Date

           Dim Diff As Integer = DateDiff(DateInterval.Day, sdate, Ndate)

           If Diff > 3 Then
               MsgBox("عفواً انتهت الفتره التجريبيه للبرنامج برجاء الاتصال بالمبرمج")

               End
           Else
               MsgBox("لقد مر علي استخدام البرنامج  :   " & Diff & "   يوم   ")
           End If