Set Regedit = CreateObject("WScript.Shell")
Regedit.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\EJEMPLO", App.Path & "\" & App.EXEName & ".exe"

' Quitar la clave
Dim s As String
'
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
    If mReg.DeleteValue(cvRun, txtClave.Text) = ERROR_NONE Then
        LabelInfo.Caption = "La clave se ha eliminado del registro."
    Else
        LabelInfo.Caption = "ERROR al eliminar la clave."
    End If
Else
    LabelInfo.Caption = "La clave NO estaba creada."
End If