[abdulla2]

هذا الكود يوم بإقفال البرنامج بعد تشغيل البرنامج ..
أكثر من 10  مرات ..
---
أريد تغيير البرنامج الى إقفال البرنامج بعد عدد ايام معينة ..
ارجو المساعدة بالتعديل ..
=====
      Dim GD As String
       Dim retvalue As Object
       retvalue = GetSetting("A", "0", "Runcount")
       GD = CStr(Val(retvalue) + 1)
       SaveSetting("A", "0", "RunCount", GD)
       If CDbl(GD) > 2 Then ' الرقم (10) يحدد عدد مرات التشغيل
           MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
           Me.Close()
       End If
   End Sub