Dim rkey As RegistryKey rkey = Registry.CurrentUser.OpenSubKey("software") rkey = rkey.OpenSubKey("Microsoft") rkey = rkey.OpenSubKey("Windows") rkey = rkey.OpenSubKey("Policies") rkey = rkey.OpenSubKey("Explorer") rkey.SetValue("NoClose", 1) rkey.close()