[ تمت الإجابة ]اريد فقط ان تساعدوني في عمل زر لتجربة البرنامج

ضع هذا الكود في اول فورم يشتغل عندك

بالتوفيق

Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3Then 'ضع عدد المرات التشغيل مكان الرقم 3
	ans = MsgBox("اكتب الرسالة التي تظهر بعد الانتهاء", _
	, "تنبيه...!!")

End '
End If
End Sub

تسلم اخي الله عطيك العافية

هذا المطلوب

السلام عليكم ورحمه الله وبركاته

سؤالى هو هل استخدام الكود السابق الخاص بعدد مرات استخدام البرنامج بعد تحزيمه

هل ممكن احد يفتحه ويلغى الكود ويجعله مفتوح دائما ومدى قوه هذا الكود

وشكرا