[3amo]

بخصوص الترقيم التلقائي لعدد مرات تشغيل البرنامج

إليك هذا الكود

كود :

Private Sub Form_Load()

كود :

retvalue = GetSetting("A", "0", "Runcount")
Label1 = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 30 Then ' الرقم (30) يحدد عدد مرات التشغيل
MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Unload Me
End If


End Sub

بالتوفيق