Duvida VB.NET (Registro do Windows)

Question

Olá, estou com uma duvida referente a edição de registro do Windows.

estou desenvolvendo uma app em vb.net, porém estou parado em uma parte

criei uma form simples para teste e coloquei 1 botão, nela existe o seguinte código:

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim AppPath As String
            AppPath = My.Computer.FileSystem.CurrentDirectory
            AppPath = AppPath & "\appteste.exe"
            My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers", AppPath, "WINXPSP3")

            MessageBox.Show("Registro Adicionado com Sucesso!", "OK", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Catch ex As Exception
            MessageBox.Show("Inicie o Aplicativo como Administrador!", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub
End Class

porém mesmo executando o app como adm, ele não insere o registro no Windows;(

alguém pode me ajudar? por favor @_@