Programalama > VISUAL BASIC

Direk Forma Üstünde Siz Oynayın:
_____________________________________
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 yükseltebilirsiniz bu rakam programın kaç kere çalışacağını belirtiyor.
SaveSetting "sınır", "sınırla", "kbel", 111111
MsgBox "Programın kullanımı süresi 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

berk &amp&amp#3541iceberk&amp&amp#3540
wardom.iceberk001@.com