كود جعل البرنامج يعمل عدد مرات محدد ثم يطالبك بالشراء

ضع فى الفورم لود الكود التالى


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