Option Explicit

Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sınır", "sınırla", "kbel", 0)
If kbel >= 10 Then 'Burdaki 10 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

Gereklı Olanlar Sadece 1 Label
__________________