GRAVAR NO REGISTRO DO WINDOWS 8

F001E 19/11/2012 12:04:42
#414435

Bom dia Todos....tenho essa seguinte função que funciona no XP, no Vista, no 7..mas no Windows 8 fala que não tenho acesso para Criar, Ler no registro do Windows....e o meu usuário á Administrador....segue a função...

Private Sub CriaRegistro()
Try
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey([Ô]System\MagicNet[Ô], True)
If key Is Nothing Then
Dim keynew As RegistryKey = Registry.LocalMachine.OpenSubKey([Ô]System[Ô], True)
Dim newkey As RegistryKey = keynew.CreateSubKey([Ô]MagicNet[Ô])
newkey.SetValue([Ô]Servidor[Ô], [Ô][Ô])
newkey.SetValue([Ô]TipoServidor[Ô], [Ô]0[Ô])
newkey.SetValue([Ô]Versao[Ô], [Ô][Ô])
newkey.SetValue([Ô]Paginas[Ô], [Ô][Ô])
End If
Catch ex As Exception
TratarErro([Ô]frmServidor[Ô], [Ô]CriaRegistro[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub

Existe outra forma de Gravar e Ler no Registro do Windows 8 sem ele me bloquear....
Eu achava que era porque eu estava com a Versão Realese do Windows, mas comprei o Windows 8 Pro e continua com isso...alguém sabe como resolver...