Programınızı lisansli yapin

Option Explicit

Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sinir", "sinirla", "kbel", 0)
If kbel >= 5 Then 'Burdaki 5 rakamini isterseniz yükseltebilirsiniz bu rakam programin kaç kere çalisacagini belirtiyor.
SaveSetting "sinir", "sinirla", "kbel", 111111
MsgBox "Programin kullanim süresi bitti", vbOKOnly, "Uyari'"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sinir", "sinirla", "kbel", kbel
Label1.Caption = kbel
End If
End Sub