[Help]Need help with Registry

[riteshtechie]

   
Dim regKey As RegistryKey


 Private Sub adv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles adv.Click
        regKey = Registry.CurrentUser.OpenSubKey("Software\Policies\Microsoft\Internet Explorer\Control Panel", True)

        If adv.Text = "Hide" Then
            regKey.SetValue("AdvancedTab", 1)
            adv.Text = "Show"
            regKey.Close()
        Else
            regKey.SetValue("AdvancedTab", 0)
            adv.Text = "Hide"
            regKey.Close()
        End If
    End Sub

Even after removing regKey.close() registry doesn't update