Pb d'accès à la BDR (HKEY_LOCAL

EN VB.net sous Visual Studio 2019 j'accède en écriture à la BDR pour la clef HKEY_CURRENT_USER mais pas avec la Clef HKEY_LOCAL_MACHINE
j'obtiens le message " Accès au registre demandé non autorisé"

j'utilise l'écriture suivante :

Code:

Ecriture_Reg("HKEY_CURRENT_USER", "Control Panel\Desktop", "AutoEndTasks", Valeur)

Fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Ecriture_Reg(KRoot As String, Clef As String, Sous_clef As String, Valeur As Object) ' Ecriture d'une Clé Rk\Chaine
        Dim RegKey As RegistryKey
        Select Case KRoot
            Case "HKEY_CURRENT_USER"
                RegKey = Registry.CurrentUser.OpenSubKey(Clef, True)
                With RegKey
                    .SetValue(Sous_clef, Valeur) : .Close()
                End With
            Case "HKEY_LOCAL_MACHINE"                                                               '
                               Try
                    RegKey = Registry.LocalMachine.OpenSubKey(Clef, True)
                    With RegKey
                        .SetValue(Sous_clef, Valeur) : .Close()
                    End With
                Catch Ex As Exception
                    MsgBox(Ex.Message)
                End Try

Malgré toutes les différentes solutions proposées ici et là je sèche..
Merci de vos réponses.

Pb d'accès à la BDR (HKEY_LOCAL_MACHINE)