https://barnamenevis.org/showpo...4&postcount=93


Imports Microsoft.Win32





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

        ' // Create SubKey

        Registry.LocalMachine.CreateSubKey("Software\Sinpi  n", RegistryKeyPermissionCheck.ReadWriteSubTree)



        '//Create Key and Set Value

        Dim reg As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Sinpin"  , True)

        reg.SetValue("DWord", "1", RegistryValueKind.DWord)

        reg.SetValue("ExpandString", "1", RegistryValueKind.ExpandString)

        reg.SetValue("QWord", "1", RegistryValueKind.QWord)

        reg.SetValue("String", "1", RegistryValueKind.String)

        reg.SetValue("Unknown", "1", RegistryValueKind.Unknown)



        '// Delete Key

        reg.DeleteValue("DWOrd")



        '// Delete SubKey

        Registry.LocalMachine.DeleteSubKey("Software\Sinpi  n")



        '// Read Key Value

        Dim val As String = reg.GetValue("QWord").ToString()



        '// Retrieve All Keys

        For Each s As String In reg.GetValueNames()

            MessageBox.Show(s)

        Next



    End Sub