To ogranicenje moras preko nekog fajla u kome se
upisuje koliko je puta program otvoren. Pa kad
se program startuje proveri u tom fajlu koliko je puta startovan,
ako je deset puta, program se iskljucuje.
Mozes takodje koristiti i bazu, mada ako ti to treba za neku
demo verziju bolje je da snimas u fajl i da ga kriptujes.

Poz...

Mozes i pomocu Save i GetSettinga upisati u registar.
Stavi jedan TextBox (Text1) i kopiraj ovo:

Private Sub Form_Load()
'Trazi u registru setting nazvan "Count" i vrijednost upisuje u Text1
Text1.Text = GetSetting(App.Title, "Settings", "Count", Text1.Text)
'Na vrijednost dodaje +1 (Na startu u property Text1.Text upisi nulu)
Text1 = Text1 + 1
If Text1 > 9 Then
MsgBox "Ovo je deseti put da me otvaras!"
End If
End Sub

Private Sub Text1_Change()
'Na promjenu u Text1 zapisuje u registar novu vrijednost settinga "Count"
SaveSetting App.Title, "Settings", "Count", Text1.Text
End Sub