[محمد]

جرب هذا الكود
عرف المتغير a عام لكي يحتفظ باخر قيمة لة
[ Dim a As Integer

Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
a = a + 1
If a >= 10 Then
("تم تعطيل الادخال") MsgBox
TextBox1.Enabled = False

TextBox1.Text ="لقد استخدمت مربع النص 10 مرات هذة النسخة من البرنامج غير مرخصة"
End If]

---

اما افضل طريقة لتعلم العميل بأن البرنامج غير مجاني
هي ان تعمل اكوادك الخاصة بفحص النسخة اذا مجانية او غير مجانية
عند عملية تشغيل النظام