[مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor

كود :
Public Class Form1

    'متغير من نوع نصي نجلب فيه القيمة

    Dim read As String



    'إخفاء الزر

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

        'False قم بإنشاء أو تغيير بيانات القيمة إلى 

        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "False", Microsoft.Win32.RegistryValueKind.String)

        'قم بإخفاء الزر

        Button3.Visible = False

    End Sub



    'عند الضغط على زر إظهار

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

        'True قم بإنشاء أو تغيير بيانات القيمة إلى 

        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "True", Microsoft.Win32.RegistryValueKind.String)



        'قم بإظهار الزر

        Button3.Visible = True

    End Sub





    'إغلاق الفورم 

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        'إذا كان الزر ظاهر

        If Button3.Visible = True Then

            'True قم بإنشاء أو تغيير بيانات القيمة إلى 

            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "True", Microsoft.Win32.RegistryValueKind.String)

        End If

        'إذا كان الزر مخفي

        If Button3.Visible = False Then

            'False قم بإنشاء أو تغيير بيانات القيمة إلى 

            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\SOFTWARE\saud", "2", "False", Microsoft.Win32.RegistryValueKind.String)

        End If

    End Sub





    'فتح الفورم 

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



        'متغير يجلب بيانات القيمة

        read = (My.Computer.Registry.GetValue _

                ("HKEY_CURRENT_USER\SOFTWARE\saud", "2", Nothing))



        ' True إذا كانت بيانات القيمة تساوي

        If read = "True" Then

            'قم بإظهار الزر

            Button3.Visible = True

        End If

        ' False إذا كانت بيانات القيمة تساوي

        If read = "False" Then

            'قم بإخفاء الزر

            Button3.Visible = False

        End If





    End Sub

End Class