SoloCodigo

Hola alguien me puede ayudar con un code que ayude a modificar un valor en el registro de windows, mas claro quiero desactivar el UAC por medio de un code en VB si alguien me ayuda con el code me urge ya que me simplificaria la vida en lugar de estar haciendolo manualmente



Tengo este codigo pero no me ha dado resultado

Private Sub Command1_Click()
MsgBox "Desactivado Correctamente", vbInformation


End Sub

Private Sub Form_Load()
Dim objShell As Object

Set objShell = CreateObject("Wscript.Shell")
On Error Resume Next
objShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", EnableLUA, REG_DWORD, 0
Set objShell = Nothing
End Sub

Si alguien me puede ayudar de verdad me urge, espero su pronta respuesta