[bensadi]

هذا كود لنسخة "تجريبية" جعلتها في برنامجي عندما توقف البرنامج لم استطيع إعادة "تفعيل البرنامج من جديد"، من لديه حل؟ شكرا

الكوه هو كما يلي:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

 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) > 10 Then ' 1

MsgBox("انتهت مدة تشغيل البرنامج،،، ")

Me.Close()

End If

End Sub

End Class