[3booody]

السلام عليكم ورحمة الله وبركاته
أخي الفاضل اختار عنوان واضح لسؤالك حتى يقوم الاخ ابراهيم او احد الاخوة بمساعدتك
ولو انك بحثت قليلآ لوجدت ماتبحث عنه واتمنالك التوفيق

وان شاء الله هذا الذي تبحث عنه

اولآ قم بالذهاب الىMy Project الموجود على اليمين
واختار Settings الموجوده على اليسار
سوف تظهر لك قاعدة بيانات
الحقل Name اكتب فيه      Point
والحقل Type اختار الكلمة    Integer
والحقل Value اكتب بداخله عدد النقاط ولتكن 1000

وضع زر Button وضع الكود التالي

كود :

Public Class Form1
   Dim p As Integer = My.Settings.Point

   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       My.Settings.Point = p
       My.Settings.Save()
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Label1.Text = "Point : " & p
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       p -= ListBox1.Items.Count
       Label1.Text = "Point : " & p
   End Sub
End Class