یک اتفاق عجیب در تغییر مقادیر رجیستری

سلام.
من می خوام مقدار یک دیتا از رجیستری رو تغییر بدم. تغییرات اعمال می شه ولی در کلید اصلی رجیستری ویندوز که با RegEdit مشاهده می کنم تغییراتی اعمال نمی شه!!!!!
ینی چی؟!
ویندوز من 64 بیتی هست
ویژوال استودیو 2010 استفاده می کنم

Dim GlobalKey As RegistryKey

GlobalKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFT  WARE\Microsoft\Windows\CurrentVersion\Explorer\Fol  derDescriptions")

        Select Case FolderName.ToUpper

            Case "3D OBJECTS" : Key = "{31C0DD25-9439-4F12-BF41-7FF4EDA38722}"

            Case "DESKTOP" : Key = "{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}"

            Case "DOCUMENTS" : Key = "{f42ee2d3-909f-4907-8871-4c22fc0bf756}"

            Case "DOWNLOADS" : Key = "{7d83ee9b-2244-4e70-b1f5-5393042af1e4}"

            Case "MUSIC" : Key = "{a0c69a99-21c8-4671-8703-7934162fcf1d}"

            Case "PICTURES" : Key = "{0ddd015d-b06c-45d5-8c4c-f59713854639}"

            Case "VIDEOS" : Key = "{35286a68-3c57-41a1-bbb1-0eae73d76c95}"

        End Select

        With GlobalKey.OpenSubKey(Key).OpenSubKey("PropertyBag"  , True)

            Console.WriteLine(.GetValue("ThisPCPolicy", "?").ToString)

            .SetValue("ThisPCPolicy", "Hide")

        End With

Console.WriteLine("{0} set to Hile", FolderName)

ضمیمه 155169

ضمیمه 155170

سلام

این مسیر را امتحان کنید

Computer\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\M icrosoft\Windows\CurrentVersion\Explorer\FolderDes criptions

نقل قول:

---

نوشته شده توسط 336699

سلام

این مسیر را امتحان کنید

Computer\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\M icrosoft\Windows\CurrentVersion\Explorer\FolderDes criptions

---

سلام.
مشکل اینها نیست
مشکل از CPU (Platform) انتخاب شده برای Compileبود که توی این ویدئو :

آموزش مخفی یا نمایان کردن پوشه های کاربری با برنامه نویسی

نشون داده می شه چظور باید تغییر کنه تا درست عمل کنه ، چرا که مهم اینه که مقادیر رجیستری هر چی که باشه باید بشه تغییر داد....

ضمیمه 155171