[ahmedabdelaliem]

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

PHP كود :

Dim DemoTest As String
Private Sub Form_Load()
DemoTest = GetSetting(App.Title, "Settings", "DemoCount")
If DemoTest = "" Then DemoTest = 0
If DemoTest >= 3 Then
MsgBox "Sorry, Demo is Expired", vbInformation, "Demo is Expired"
End
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If DemoTest = "" Then DemoTest = 0
SaveSetting App.Title, "Settings", "DemoCount", DemoTest + 1
End Sub 


بالتوفيق