error 70 en tiempo de ejecucion

[mamogo]

hola, me da este error, 70 permiso denegado
tengo este codigo que creo que el responsable
creo que es por problema en el registro, ejecuto el programa en windows7

Private Sub Form_Load()
'crea el registro
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Set El_Objeto = Nothing

'leer registro
horario.Text = GetSetting(App.EXEName, "grabacionhora", "hora")
archivo.Text = GetSetting(App.EXEName, "grabacionarchivo", "archivo")

x.Text = GetSetting(App.EXEName, "grabacionX", "X")
y.Text = GetSetting(App.EXEName, "grabacionY", "Y")

xx.Text = GetSetting(App.EXEName, "grabacionXX", "XX")
yy.Text = GetSetting(App.EXEName, "grabacionYY", "YY")


'---------------------------------------
End Sub

gracias de antemano

[pkj]

Sera cosa del 7. En XP no da problemas el código.

Saludos