Verdiğim kodları programızın form loadına ekleyerek programınızı sınırlaya bilirsiniz.İsterseniz bunu geliştirebilirsiniz.
Merhaba arkadaslar dokumanlara bir de benim katkım olsun dedim ve bu dokumanı ekledim.İşinize yaracağına inanıyorum
Birde zamana gore sınırlama yapanı var onuda ileride gondereceğim.Kolay gelsin.Altta yazanları direkt forma yapıştırabilirsiniz

Dim kbel2
Dim kbel

Private Sub Form_Load()
kbel = GetSetting("sınır", "sınırla", "kbel", 0)
If kbel >= 5 Then 'burdaki 5 rakamını isterseniz yukseltebilirsiniz bu rakam programın kac kere calışacağını belirtiyor.
SaveSetting "sınır", "sınırla", "kbel", 111111
MsgBox "Programın kullanımı suresi bitti", vbOKOnly, "Uyarı"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sınır", "sınırla", "kbel", kbel
Label1.Caption = kbel
End If
End Sub

aLınTıDır ..
__________________