Isse Kun
Emektar Üye
Arkadaşlar Ben Kodları Veriyorum Kendinize Göre Editlersiniz Kaç Gün Adamak İstiyorsanız.
Anlatımı Yapmayacağım Kolay Bir Şey Çünki
Form1_Load Kodları:
Anlatımı Yapmayacağım Kolay Bir Şey Çünki
Form1_Load Kodları:
Kod:
Dim a As String = My.Settings.kalan
My.Settings.Kalan = a - 1
If a=0 Or 0>a Then
MsgBox("Deneme Sürümünüz Bitmiltir,Lütfen Tam Sürümü Satın Alınız!",vbInformatiın,"Hakkınız Bitmiştir")
Else
MsgBox(a & "Tane Hakkınız Kalmıştır",vbInformation,"Kalan Hakkınız!")
My.Settings.Save()
End If