فقط ۲۵ بار برنامه اجرا بشه

سلام امروز یک کد بسیار ساده برای شما آماده کردم. کد زیر باعث میشه فقط برنامه برای ۲۵ اجرا بشه نه بیشتر یک command1 به فرم اظافه کنید و بعد کد زیر را به برنامه اظافه کنید.
private sub form_load()

' the "a" in getsetting and savesetting
' can be changed to another letter
retvalue = getsetting("a", "0", "runcount") ' this returns the value of the registry edit.
worm$ = val(retvalue) + 1 ' adds one to the value of the regisrty edit.
savesetting "a", "0", "runcount", worm$ ' saves the new value

if worm$ 24 then 'put one number lower then it says.
msgbox "you have used this program 25 times, purchase is now required", 16, "sorry"
' this would send the user to a website
' in their default browser.
win32keyword "http://skygazer.net"
unload me
end
end if

end sub

private sub command1_click()

end
end sub

سلام
اين روش به راحتي قابل رديابي هست
زياد كارآمد نيست
بهرحال ممنون
ياعلي

و براي ريست كردن برنامه فقط كافيه بياي توي regedit/hkcu/softwares/vb and vba programs و هر كليدي اونجا موجوده رو پاك كني.
راستي لطف كنيد كدتونو توي تگ كد يا php بذاريد

واسه من توی این خط ایراد می گیره
if worm$ 24 then 'put one number lower then it says.
چرا ؟