[معاند الحظ]

اذا كنت متاكد انك كتبت الكود الصحيح وبشكل صحيح 
فهذا ممكن يكون بسبب انك تستخدم نظام تشغيل اصدار 64 بت 
فاذا كان هذا صحيح فانت تحتاج فقط الى تعديل الكود ليكون كالتالي:

كود :

  Dim regPerm1 As RegistryPermission

        Dim pRegKey As RegistryKey = Registry.LocalMachine

        regPerm1 = New RegistryPermission(RegistryPermissionAccess.AllAccess, "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run")

        regPerm1.SetPathList(RegistryPermissionAccess.AllAccess, "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run")



        Dim regKey As Microsoft.Win32.RegistryKey
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run", True)
        'regKey.SetAccessControl(rs)

        regKey.SetValue(My.Application.Info.ProductName, Application.ExecutablePath)
        regKey.Close()