[سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل

كود :
Imports System.Net

Public Class Form1

    Dim P As New WebClient



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Process.Start("http://www.google.com")

    End Sub



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click



        

        If Label1.Text = My.Settings.code Then

            Form2.Show()

            Me.Close()



        Else

            MsgBox("برجاء حذف التفعيل والتاكد من وجود كود جديد", MsgBoxStyle.Critical, Nothing)

            Me.Close()



        End If



    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



        If Label1.Text = TextBox1.Text Then

            Interaction.MsgBox("تم التفعيل الرجاء اعادة تشغيل البرنامج", MsgBoxStyle.Information, Nothing)

            Button3.Visible = Not Button3.Visible

            Button4.Visible = Not Button4.Visible

            Button1.Visible = Not Button1.Visible

            Button2.Visible = Not Button2.Visible

            TextBox1.Visible = Not TextBox1.Visible

            My.Settings.code = TextBox1.Text

            My.Settings.Save()

            Me.Close()

            

        Else

            Interaction.MsgBox("يرجي كتاية الكود صحيح", MsgBoxStyle.Critical, Nothing)

        End If

        

    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Label1.Text = P.DownloadString("https://dl.dropboxusercontent.com/s/c5r8hjct5tm32km/Password.txt?dl=0")

        Label1.Hide()

        Button3.Visible = My.Settings.Button3

        Button4.Visible = My.Settings.Button4

        Button1.Visible = My.Settings.Button1

        Button2.Visible = My.Settings.Button2

        TextBox1.Visible = My.Settings.TextBox1



    End Sub



    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp

        If e.KeyCode = Keys.Enter Then

            Button1_Click(sender, e)

        End If

    End Sub



    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing

        My.Settings.Button3 = Button3.Visible

        My.Settings.Button4 = Button4.Visible

        My.Settings.Button1 = Button1.Visible

        My.Settings.Button2 = Button2.Visible

        My.Settings.TextBox1 = TextBox1.Visible

        My.Settings.Save()

    End Sub



    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        My.Settings.Reset()

        TextBox1.Show()

        Button1.Show()

        Button2.Show()

        Button3.Hide()

        Button4.Hide()

        Interaction.MsgBox("تم حذف التفعيل الرجاء اعادة تشغيل البرنامج", MsgBoxStyle.Information, Nothing)

        My.Settings.code = TextBox1.Text

        My.Settings.Save()

        Me.Close()

    End Sub



End Class