[سؤال] مساعدة فى الحصول على كود يقوم بالوظيفة التاليه

كود :

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

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Settings.myval += 1
        My.Settings.Save()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Val(My.Settings.myval) >= 10 Then
            'الهدف المطلوب بعد 10 ازرار
            'على سبيل المثال عدد الضغطات
            MsgBox("البرنامج مجاني")
            'الغاء التحكم بصناديق النص
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            TextBox3.Enabled = False
        Else
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            TextBox3.Enabled = True
        End If

    End Sub