This code will disable your program after a certain number of runs of the program. more info: worm@thepentagon.com
Original Author: Worm
Assumptions
Put in Form_Load statement. And this code is for 32-bit programming Only!
Side Effects
Don’t put this code in while your testing and programming your program because it will then disable you from running your program. more info: worm@thepentagon.com
API Declarations
Code
'put in form_load
retvalue = GetSetting("A", "0", "Runcount")
Worm$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", Worm$
If Worm$ > 99 Then 'put one number lower then it says....you can only run the program 200 times.
MsgBox "This is the end of the trial run",16,"Sorry"
Unload me
End If