Veoma prosto samo se forum treba prelistati :)
Code:
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 "Trial Version Expired",vbinformation
end
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
Stavi na formu jedan textbox i u properties stavi na locked true
Ovo radi da se program moze startovati 10 puta, pa ti pogledaj source i promeni na koliko hoces.