[Dr.Virus]

السلام عليكم ورحمة الله وبركاتة أخي 

جرب هذا الكود وإن شاء الله سيعمل معك 

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ' زيادة قيمة الملف المتحقق منه بقيمة 1
       Try
           'التحقق من وجود الملف ام لا
           If Not IO.File.Exists(Application.StartupPath & "\Run.inf") Then
               ' اذا لم يتم إيجاد الملف للتحقق منه
               a = 1
               My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Run.inf", a, False)
           Else
               'إذا تم إيجاد الملف
               '-------------------------
               'قراءة القيمة الموجودة في الملف
               a = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Run.inf")
               ' التحقق من قيمة الملف
               ' لو القيمة اكبر من او تساوي 10
               If a >= 10 Then
                   ' لو القيمة اكبر من او تساوي 10
                   'إظهار رساله تفيد بأن المدة التجريبية انتهت ويتم تعطيل الزر
                   MsgBox("The Trial Time Has Been End")
                   Button2.Enabled = False
               Else
                   ' إذا لم تكون القيمة اكبر من او تساوي 10 يتم زيادة القيمة بمقدار 1
                   My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Run.inf", a + 1, False)
               End If
           End If
       Catch ex As Exception
           ' هذا لاظهار رسالة بالخطا ورقمه اذا وجد
           MessageBox.Show(ex.Message, "Error NO.: " & Err.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub

والسلام عليكم ورحمة الله وبركاتة