#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Datos\IUCCG v.2.ico
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GuiEdit.au3>

#********** DECLARACIONES *************************************************
Global $Conf[20], $Apli[20], $Ofic[20], $Repr[20], $Edit[20], $Prog[20], $Herr[20], $Comp[20], $Otro[20], $Num, $n, $LblCtdd, $ContarP, $TtlGuiInst = "IUCCG V.2"
Global $sFilePath = @ScriptDir & "\Datos\IUCCG V.2.ini", $ContC, $ParC, $ContA, $ParA, $ContO, $ParO, $ContR, $ParR, $ContE, $ParE, $ContP, $ParP, $ContH, $ParH, $ContM, $ParM, $ContF, $ParF
#********** Posicion y Tamaño Cajas de chequeo ************************************************
Global $IzqCB1 = 50, $IzqCB2 = $IzqCB1 + 230, $IzqCB3 = $IzqCB2 + 230
Global $ArbCB1 = 105, $ArbCB2 = 105, $ArbCB3 = 105, $ArbCB4 = 95, $ArbCB5 = 105, $ArbCB6 = 105, $ArbCB7 = 105, $ArbCB8 = 105, $ArbCB9 = 105
Global $AncCB = 178, $GruCB = 20, $Sep = 21, $ZFCB = 10, $FntCB = "Arial"

#********** POSICION Y TAMAÑO DE ICONOS ************************************************
Global $IzqIco1 = $IzqCB1 - 23, $IzqIco2 = $IzqIco1 + 230, $IzqIco3 = $IzqIco2 + 230
Global $ArbIco1 = 105, $ArbIco2 = 105, $ArbIco3 = 105, $ArbIco4 = 105, $ArbIco5 = 105, $ArbIco6 = 105, $ArbIco7 = 105, $ArbIco8 = 105, $ArbIco9 = 105
Global $AnchIco = 22, $GruIco = 20

#********** POSICION Y TAMAÑO DE INFOS ************************************************
Global $IzqInfo = 695, $ArbInfo = 48, $AnchInfo = 210, $GrsInfo = 25, $AnchBA = 20, $AltBA = 18
Global $ZFInf = 10, $FntInf = "Time New Roman", $ClrTxtCB = 0xFF0000

#********** POSICION Y TAMAÑO DE BOTONES TODO Y DEFAULT ************************************************
Global $IzqBT1 = 13, $IzqBT2 = $IzqBT1 + 230, $IzqBT3 = $IzqBT2 + 230, $ArbBT = 515, $AnchBtnTd = 125, $GruBtnTd = 25
Global $IzqBDel1 = 154, $IzqBDel2 = $IzqBDel1 + 230, $IzqBDel3 = $IzqBDel2 + 230, $ArbBDel = 515, $AnchBDel = 70, $GruBDel = 25
Global $ZFBtnT = 8, $FntBtnT = "Time New Roman", $InfDel = "Elimina el o los programas seleccionados en ", $Tips = $TtlGuiInst
Global $InfTd = "Seleciona/Deselecciona o selecciona los Pre-seleccionados de "

#********** POSISION DE LOS TITULOS *********************************
Global $IzqTTl1 = 15, $IzqTTl2 = $IzqTTl1 + 231, $IzqTTl3 = $IzqTTl2 + 231, $ArbTTl = 70, $AncTTl = 170, $GruTtl = 30
Global $ZFTtl = "16", $FntTtl = "Comic Sans MS", $ClrTxtCB = 0xFF0000
Global $TtlC = "Configuraciones", $TtlA = "Aplicaciones", $TtlO = "Oficina", $TtlR = "Reproductores", $TtlE = "Editores"
Global $TtlP = "Programación", $TtlH = "Herramientas", $TtlM = "Complementos", $TtlF = "Otros", $TtlDel = "Eliminar"
Global $TtlTdos = "Todos", $TtlTdas = "Todas", $TtlDflt = "Pre-Seleccionadas", $TtlNngn = "Ninguno"
Global $DscTds = "Desactivar todos"

#********** POSISION DE LOS GRUPOS *********************************
Global $IzqGrp1 = 5, $IzqGrp2 = $IzqGrp1 + 230, $IzqGrp3 = $IzqGrp2 + 230, $ArbGrp1 = 70, $ArbGrp2 = $ArbGrp1 + 360, $AncGrp = 228, $GruGrp = 473
Global $ZFGrp = 15, $FntGrp = "Arial"

#********** POSISION Y TAMAÑO DE LOS BOTONES EXTRAS ****************
Global $IzqBxtra = 15, $ArbBxtra = 553, $AncBExtra = 150, $GruBExtra = 25

#********** OTROS BOTONES ******************************************
Global $ZFOtrB = 10, $FntOtrB = "Arial"

#********** PESTAÑAS ***********************************************
Global $ZFPest = 10, $FntPest = "Arial Narrow"

#********** ESTILOS ************************************************
Global $StyloGrp = $WS_CAPTION, $Line1 = $WS_BORDER, $Form1 = $WS_DLGFRAME, $Form2 = $WS_DLGFRAME & $SS_CENTER, $ClrInf = 0xFFFFFF

################################################################### Gui ################################################################################

GUICreate($TtlGuiInst, 910, 610, 5, 5)
GUICtrlCreatePic(@ScriptDir & "/Datos/Fondo.jpg", 3, 68, 905, 518, $SS_BITMAP)

############################################################# BOTONES ##################################################################################
#********** POSISION DE LOS BOTONES *********************************
Global $IzqBtn = 10, $ArbBtn = 10, $AncBtn = 100, $GruBtn = 27
#********** Colores *************************************************
Global $ClrBtn = 0x99CCFF

#********** ESTILOS *************************************************
$BtnPre = GUICtrlCreateButton("Pre-selecionados", $IzqBtn + 165, $ArbBtn, $AncBtn + 15, $GruBtn, $Form1)
GUICtrlSetBkColor(-1, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Selecciona todos los programas que estan por Default", $Tips, 1, 3)

$BtnNngn = GUICtrlCreateButton("Ninguno", $IzqBtn + 290, $ArbBtn, $AncBtn, $GruBtn, $Form1)
GUICtrlSetBkColor(-1, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Deselecciona todos los programas", $Tips, 1, 3)

$BtnCmnzr = GUICtrlCreateButton("Comenzar ahora", $IzqBtn + 400, $ArbBtn, $AncBtn + 15, $GruBtn, $Form1)
GUICtrlSetBkColor(-1, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Comienza la instalacion de todos los programas", $Tips, 1, 3)

$Fin = GUICtrlCreateCheckbox("=> Cerrar el instalador al Finalizar", $IzqBtn + 540, $ArbBtn, $AncBtn + 140, $GruBtn)
;GUICtrlSetBkColor(-1,$ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Cierra el programa despues de hacer todas las instalaciones", $Tips, 1, 3)

$BtnSlr = GUICtrlCreateButton("Salir", $IzqBtn + 795, $ArbBtn, $AncBtn, $GruBtn, $Form1)
GUICtrlSetBkColor(-1, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Cierra el programa " & $TtlGuiInst, $Tips, 1, 3)

$BtnAdd = GUICtrlCreateButton("Agregar Programas", $IzqBtn, $ArbBtn, $AncBtn + 30, $GruBtn, $Form1)
GUICtrlSetBkColor(-1, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Abre una ventana que sirve para agregar programas al instalador", $Tips, 1, 3)

################################################################## Barra de Progreso ####################################################################
#********** INFORMACIÓN DE LA INSTALACIÓN ******************************************
Global $IzqCntdd = 5, $ArbCntdd = 585

$CantidadProgramas = GUICtrlCreateLabel("0 de 0", $IzqCntdd, $ArbCntdd, 90, 22, $Form2)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Muestra la cantidad de programas selecionados y cuantos se han instalado", $Tips, 1, 3)

$Porcentaje = GUICtrlCreateLabel("0 %", $IzqCntdd + 840, $ArbCntdd, 60, 22, $Form2)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Muestra el porcentaje de programas instalados", $Tips, 1, 3)

$BarraProgreso = GUICtrlCreateProgress($IzqCntdd + 93, $ArbCntdd, 745, 22, $Form2)
GUICtrlSetTip(-1, "Muestra con una barra la cantidad de programas instalados", $Tips, 1, 3)

#******************************************************************** Reloj ****************************************************************************#
$Hr = @HOUR
$AP = $Hr
If $AP >= 13 Then
	$AP = "P.M."
Else
	$AP = "A.M."
EndIf

If $Hr >= 13 And $Hr <= 24 Then $Hr -= 12
$Time = $Hr & " : " & @MIN

Global $oHora = GUICtrlCreateInput("Hora:00:00:00", $IzqInfo, $ArbInfo + 80, $AnchInfo, $GrsInfo, $ES_READONLY & $SS_CENTER)
GUICtrlSetFont(-1, $ZFInf + 3, 800, 0, $FntInf)
GUICtrlSetData($oHora, "Hora: " & $Hr & " : " & @MIN & " : " & @SEC & " : " & $AP)
AdlibRegister("Hora", 1000)

#******************************************************************** FECHA ****************************************************************************#
Global Const $aDias[7] = ["Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado"] ;array para los dias
Global Const $aMes[12] = ["Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"]
$Dia = @WDAY ;Lee el dia de la semana
$Dia = $aDias[$Dia - 1]
$Fch = @MDAY ;Lee el dia
$Mes = $aMes[@MON - 1]

$Yr = @YEAR ;Lee el año
$Hr = @HOUR ;Lee la hora
$AP = $Hr
If $AP >= 13 Then
	$AP = "P.M."
Else
	$AP = "A.M."
EndIf

If $Hr >= 13 And $Hr <= 24 Then $Hr -= 12
$Time = $Hr & " : " & @MIN
$Info4 = GUICtrlCreateLabel($Dia & " " & $Fch & " de " & $Mes & " " & $Yr & @CRLF & "Hora de inicio... " & $Time & " " & $AP, $IzqInfo, $ArbInfo + 110, $AnchInfo, $GrsInfo + 10, $Form2)
GUICtrlSetFont(-1, $ZFInf, 400, 0, $FntInf)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#******************************************************************** INFORMACION ****************************************************************************#

$So = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName"); Lee el nombre completo del OS

$SP = @OSServicePack ; Lee el servicepack
Global $OA = @OSArch ; Lee la arquitectura
If $OA = "X86" Then
	$OA = "32 Bits"
Else
	$OA = "64 Bits"
EndIf

$OSV = @OSVersion ; Lee la version de OS
$User = @UserName ; Lee el usuario
If $OSV = "WIN_XP" Then
	$Org = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
EndIf
If $OSV = "WIN_7" Then
	$Org = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
EndIf
If $OSV = "WIN_8" Then
	$Org = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
EndIf
$NPc = @ComputerName ; Lee el nombre de usuario de la PC
$IP = @IPAddress1 ; Lee pa IP de la PC
$Info1 = GUICtrlCreateLabel("Seleccione el o los programas que desea instalar, para iniciar la instalacion, haga CLIC en el Botón COMENZAR AHORA", $IzqInfo, $ArbInfo, $AnchInfo, $GrsInfo + 50, $Form2)
GUICtrlSetFont(-1, $ZFInf, 400, 0, $FntInf)

$Cmplcn = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentBuild") ; Lee la compilacion
$Serial = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductId") ; Lee la licencia del OS
$Version = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentVersion") ; Lee la version
Run(@ScriptDir & "/Clave.vbs")
$Key = _GetWindowsProductKey()

$Info2 = GUICtrlCreateLabel(@CRLF & "Info General:" & @CRLF & @CRLF & "OS: " & $So & @CRLF & "Arquitectura de: " & $OA & @CRLF & _
		"Compilacion: " & $Cmplcn & @CRLF & "Version. " & $Version & @CRLF & $SP & @CRLF & @CRLF & "Licencia; " & @CRLF & @CRLF & @CRLF & "Usuario: " & $User & @CRLF & @CRLF & _
		"Organización: " & $Org & @CRLF & @CRLF & "Nombre en RED: " & @CRLF & $NPc & @CRLF & @CRLF & "IP de la PC: " & @CRLF & $IP, $IzqInfo, $ArbInfo + 150, $AnchInfo, $GrsInfo + 320, $Form2)
GUICtrlSetFont(-1, $ZFInf, 600, 0, $FntInf)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$Info3 = GUICtrlCreateLabel($Key, $IzqInfo + 3, $ArbInfo + 315, $AnchInfo - 7, $GrsInfo - 7, $Form2)
GUICtrlSetFont($Info3, $ZFInf - 2, 400, 0, $FntInf)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

#******************************************************************** AYUDA ****************************************************************************#
$BRed = GUICtrlCreateButton("Reparar RED", $IzqBxtra, $ArbBxtra, $AncBExtra, $GruBExtra, $Form2)
GUICtrlSetBkColor($BRed, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Programa para WindowsXP que ayuda a que la red funcione mejor", $Tips, 1, 3)

$BUser = GUICtrlCreateButton("Cambiar nombre de usuario", $IzqBxtra + 155, $ArbBxtra, $AncBExtra + 20, $GruBExtra, $Form2)
GUICtrlSetBkColor($BUser, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Ayuda a cambiar el nombre de usuario de la PC", $Tips, 1, 3)

$BOrg = GUICtrlCreateButton("Cambiar la Organizacion", $IzqBxtra + 330, $ArbBxtra, $AncBExtra + 10, $GruBExtra, $Form2)
GUICtrlSetBkColor($BOrg, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Ayuda a cambiar el nombre de la organizacio de la PC", $Tips, 1, 3)

$BOEMInfo = GUICtrlCreateButton("OEM Info Tools C.C.G.", $IzqBxtra + 495, $ArbBxtra, $AncBExtra, $GruBExtra, $Form2)
GUICtrlSetBkColor($BOEMInfo, $ClrBtn)
GUICtrlSetFont(-2, $ZFOtrB, 400, 0, $FntOtrB)
GUICtrlSetTip(-1, "Ayuda a cambiar el OEM he informacion de la instalacion", $Tips, 1, 3)

#########################################################################################################################################################
_Contar()

$LblCtdd = GUICtrlCreateLabel("Hay "&$ContarP&" Programas en total agregados al Instalador", $IzqBxtra + 660, $ArbBxtra-8, $AncBExtra+80, $GruBExtra+10,$SS_CENTER)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, $ZFOtrB, 600, 0, $FntOtrB)

################################################################### PESTAÑAS #############################################################################
GUICtrlCreateTab(5, 45, 690, 500, $WS_CLIPSIBLINGS) ;$WS_CLIPSIBLINGS
GUICtrlSetFont(-1, $ZFPest, 400, 0, $FntPest)

#********** PESTAÑA 1 ************************************************
GUICtrlCreateTabItem("Configuraciones, Aplicaciones y oficina")

$BTConf = GUICtrlCreateButton($TtlTdas & " " & $TtlC, $IzqBT1, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Configuraciones
GUICtrlSetBkColor($BTConf, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlC, $Tips, 1, 3)
$BDelConf = GUICtrlCreateButton($TtlDel, $IzqBDel1, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton defaut de Configuraciones
GUICtrlSetBkColor($BDelConf, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlC, $Tips, 1, 3)
$BTApli = GUICtrlCreateButton($TtlTdas & " " & $TtlA, $IzqBT2, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Aplicaciones
GUICtrlSetBkColor($BTApli, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlA, $Tips, 1, 3)
$BDelApli = GUICtrlCreateButton($TtlDel, $IzqBDel2, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton default de Aplicaciones
GUICtrlSetBkColor($BDelApli, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlA, $Tips, 1, 3)
$BTOfic = GUICtrlCreateButton($TtlTdos & " " & $TtlO, $IzqBT3, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Configuraciones
GUICtrlSetBkColor($BTOfic, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlO, $Tips, 1, 3)
$BDelOfic = GUICtrlCreateButton($TtlDel, $IzqBDel3, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton defaut de Configuraciones
GUICtrlSetBkColor($BDelOfic, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlO, $Tips, 1, 3)

#********* CREACION DE LOS CHECKOX ************************************
;==== Configuraciones ============================================
_CBC()
_NumC()

;==== APLICACIONES ============================================
_CBA()
_NumA()

;==== OFICINA ============================================
_CBO()
_NumO()

;**** PESTAÑA 2 ************************************************
GUICtrlCreateTabItem("Reproductores, Editores, Programacion")

$BTRepr = GUICtrlCreateButton($TtlTdos & " " & $TtlR, $IzqBT1, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Aplicaciones
GUICtrlSetBkColor($BTRepr, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlR, $Tips, 1, 3)
$BDelRepr = GUICtrlCreateButton($TtlDel, $IzqBDel1, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton default de Aplicaciones
GUICtrlSetBkColor($BDelRepr, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlR, $Tips, 1, 3)
$BTEdit = GUICtrlCreateButton($TtlTdos & " " & $TtlE, $IzqBT2, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Configuraciones
GUICtrlSetBkColor($BTEdit, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlE, $Tips, 1, 3)
$BDelEdit = GUICtrlCreateButton($TtlDel, $IzqBDel2, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton defaut de Configuraciones
GUICtrlSetBkColor($BDelEdit & $TtlE, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlE, $Tips, 1, 3)
$BTProg = GUICtrlCreateButton($TtlTdos & " " & $TtlP, $IzqBT3, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Aplicaciones
GUICtrlSetBkColor($BTProg, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlP, $Tips, 1, 3)
$BDelProg = GUICtrlCreateButton($TtlDel, $IzqBDel3, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton default de Aplicaciones
GUICtrlSetBkColor($BDelProg, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlP, $Tips, 1, 3)

#********* Creacion de los Checkox ************************************
;==== REPRODUCTORES ============================================
_CBR()
_NumR()

;==== EDITORES ============================================
_CBE()
_NumE()

;==== PROGRAMACIÓN ============================================
_CBP()
_NumP()

;**** PESTAÑA 3 ************************************************
GUICtrlCreateTabItem("Herramientas, Complemento y Otros")

$BTHerr = GUICtrlCreateButton($TtlTdas & " " & $TtlH, $IzqBT1, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Configuraciones
GUICtrlSetBkColor($BTHerr, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlH, $Tips, 1, 3)
$BDelHerr = GUICtrlCreateButton($TtlDel, $IzqBDel1, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton defaut de Configuraciones
GUICtrlSetBkColor($BDelHerr, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlH, $Tips, 1, 3)
$BTComp = GUICtrlCreateButton($TtlTdos & " " & $TtlM, $IzqBT2, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Aplicaciones
GUICtrlSetBkColor($BTComp, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlM, $Tips, 1, 3)
$BDelComp = GUICtrlCreateButton($TtlDel, $IzqBDel2, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton default de Aplicaciones
GUICtrlSetBkColor($BDelComp, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlM, $Tips, 1, 3)
$BTOtro = GUICtrlCreateButton($TtlTdos & " " & $TtlF, $IzqBT3, $ArbBT, $AnchBtnTd, $GruBtnTd, $Form1) ;Crea el boton de seleccion de todos los programas de Aplicaciones
GUICtrlSetBkColor($BTOtro, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfTd & $TtlF, $Tips, 1, 3)
$BDelOtro = GUICtrlCreateButton($TtlDel, $IzqBDel3, $ArbBDel, $AnchBDel, $GruBDel, $Form1) ;Crea el boton default de Aplicaciones
GUICtrlSetBkColor($BDelOtro, $ClrBtn)
GUICtrlSetFont(-2, $ZFBtnT, 400, 0, $FntBtnT)
GUICtrlSetTip(-1, $InfDel & $TtlF, $Tips, 1, 3)

#******** Creacion de los Checkox ************************************
;==== HERRAMIENTAS ============================================
_CBH()
_NumH()

;==== COMPLEMENTOS ============================================
_CBM()
_NumM()

;==== OTROS ============================================
_CBF()
_NumF()

GUISetState(@SW_SHOW)

While 1

	$nMsg = GUIGetMsg()


	Switch $nMsg

############## SECCION DE ELIMINAR #############################################
		Case $BDelConf
			_DelC()

		Case $BDelApli
			_DelA()

		Case $BDelOfic
			_DelO()

		Case $BDelRepr
			_DelR()

		Case $BDelEdit
			_DelE()

		Case $BDelProg
			_DelP()

		Case $BDelHerr
			_DelH()

		Case $BDelComp
			_DelM()

		Case $BDelOtro
			_DelF()

############## SECCION DE AGREGAR PROGRAMAS #######################################

		Case $BtnAdd

			ShellExecute(@ScriptDir & "\Add.exe")
			WinClose($TtlGuiInst)

########## SECCION BOTONES SELECCIONAR TODO DE CADA TIPO #############################

		Case $BTConf
			_Conf()

		Case $BTApli
			_Apli()

		Case $BTOfic
			_Ofic()

		Case $BTRepr
			_Repr()

		Case $BTEdit
			_Edit()

		Case $BTProg
			_Prog()

		Case $BTHerr
			_Herr()

		Case $BTComp
			_Comp()

		Case $BTOtro
			_Otros()

######### SECCION DE BOTONES PRE-SELECCIONADOS DE CADA TIPO ###########################

		Case $BDelConf
			_DfltC()

		Case $BDelApli
			_DfltA()

		Case $BDelOfic
			_DfltO()

		Case $BDelRepr
			_DfltR()

		Case $BDelEdit

		Case $BDelProg
			_DfltP()

		Case $BDelHerr
			_DfltH()

		Case $BDelComp
			_DfltM()

		Case $BDelOtro
			_DfltF()

######## SECCION PROGRAMAS PRE- SELECCIONADOS ######################

		Case $BtnPre
			_DfltC()
			_DfltA()
			_DfltO()
			_DfltR()
			_DfltE()
			_DfltP()
			_DfltH()
			_DfltM()
			_DfltF()

####### SECCION DE PROGRAMAS EXTRAS ###############################

		Case $BRed
			_Red()

		Case $BUser
			_Usuario()

		Case $BOrg
			_Organizacion()

		Case $BOEMInfo
			ShellExecuteWait(@ScriptDir & "\Install\OEM Info Tools CCG.exe")

######### SECCION DE BOTONES DE ACCION ###########################

		Case $BtnNngn
			_Ninguno()

		Case $BtnCmnzr
			_Instalar()

		Case $BtnSlr
			ExitLoop

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

#****************************** FUNCIONES DE INSTALACION ***********************************************************

Func _Instalar() ;Instala los programas seleccionados

	Global $TotalProgramas = 0
	_Disable()
	$Contar = 0

	_TotalProgramas()
	GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
	#################################################################################################################################################################
	;Instalacion 1
	If GUICtrlRead($Conf[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Conf[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 2
	If GUICtrlRead($Apli[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Apli[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 3
	If GUICtrlRead($Ofic[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Ofic[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 4
	If GUICtrlRead($Repr[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Repr[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 5
	If GUICtrlRead($Edit[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Edit[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 6
	If GUICtrlRead($Prog[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Prog[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 7
	If GUICtrlRead($Herr[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Herr[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	#######################################################################################################################
	;Instalacion 8
	If GUICtrlRead($Comp[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Comp[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf
	#######################################################################################################################
	;Instalacion 9
	If GUICtrlRead($Otro[0]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro0", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[1]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro1", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[2]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro2", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[3]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro3", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[4]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro4", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[5]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[6]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[7]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro7", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[8]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro8", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[9]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro9", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[10]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro10", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[11]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro11", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[12]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro12", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[13]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro13", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[14]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro14", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[15]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro15", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[16]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro16", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[17]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro17", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[18]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro18", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Otro[19]) = $GUI_CHECKED Then
		$Contar = $Contar + 1
		ShellExecuteWait(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro19", "Ubicacion", ""))
		GUICtrlSetData($CantidadProgramas, $Contar & " de " & $TotalProgramas)
		GUICtrlSetData($Porcentaje, Round($Contar * 100 / $TotalProgramas, 0) & "%")
		GUICtrlSetData($BarraProgreso, $Contar * 100 / $TotalProgramas)
	EndIf

	If GUICtrlRead($Fin) = $GUI_CHECKED Then
		MsgBox(0, $TtlGuiInst, "Se han terminado de instalar los programas" & @CRLF & "Ahora se cerrara el instalador" & @CRLF & "Grasias" & @CRLF & "wbueso@hotmail.com", 5)
		WinClose($TtlGuiInst)
	Else
		MsgBox(0, $TtlGuiInst, "Se han terminado de instalar los programas" & @CRLF & "Puede seleccionar otros programas para instalar" & @CRLF & "Grasias" & @CRLF & "wbueso@hotmail.com", 5)
	EndIf
	_Ninguno()
	_Enable()

	$Read1 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Manufacturer")
	$Read2 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Model")
	$Read3 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation", "Logo")

	If $Read1 = "" Or $Read2 = "" Or $Read3 = "" Then
		If $OA = "x86" Then
			MsgBox(0, "", "x86", 5)
			RunWait(@ScriptDir & "\Datos\OEMInformation_x86.exe")
		Else
			MsgBox(0, "", "x64", 5)
			RunWait(@ScriptDir & "\Datos\OEMInformation_x64.exe")
		EndIf
	EndIf
	GUICtrlSetData($CantidadProgramas, "0 de 0")
	GUICtrlSetData($Porcentaje, "0%")
	GUICtrlSetData($BarraProgreso, 0)

EndFunc   ;==>_Instalar

Func _TotalProgramas() ;Cuenta los programas
	$TotalProgramas = 0

	############# Seccion de Configuraciones########################################################################################

	For $ReadC = 0 To 19
		If GUICtrlRead($Conf[$ReadC]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Aplicaciones########################################################################################

	For $ReadA = 0 To 19
		If GUICtrlRead($Apli[$ReadA]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Oficina ############################################################################################

	For $ReadO = 0 To 19
		If GUICtrlRead($Ofic[$ReadO]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Reproductores ############################################################################################

	For $ReadR = 0 To 19
		If GUICtrlRead($Repr[$ReadR]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Edicion ############################################################################################

	For $ReadE = 0 To 19
		If GUICtrlRead($Edit[$ReadE]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Programacion ############################################################################################

	For $ReadP = 0 To 19
		If GUICtrlRead($Prog[$ReadP]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Herrmientas ############################################################################################

	For $ReadH = 0 To 19
		If GUICtrlRead($Herr[$ReadH]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Complementos ############################################################################################

	For $ReadM = 0 To 19
		If GUICtrlRead($Comp[$ReadM]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

	############# Seccion de Otros ############################################################################################

	For $ReadF = 0 To 19
		If GUICtrlRead($Otro[$ReadF]) = $GUI_CHECKED Then
			$TotalProgramas = $TotalProgramas + 1
		EndIf
	Next

EndFunc   ;==>_TotalProgramas

Func _Ninguno() ;Deselecciona todos los programas
	For $c = 0 To 19
		GUICtrlSetState($Conf[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Apli[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Ofic[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Repr[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Edit[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Prog[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Herr[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Comp[$c], $GUI_UNCHECKED)
		GUICtrlSetState($Otro[$c], $GUI_UNCHECKED)
	Next
	GUICtrlSetData($BTConf, $TtlTdas & " " & $TtlC)
	GUICtrlSetData($BTApli, $TtlTdas & " " & $TtlA)
	GUICtrlSetData($BTOfic, $TtlTdas & " " & $TtlO)
	GUICtrlSetData($BTRepr, $TtlTdas & " " & $TtlR)
	GUICtrlSetData($BTEdit, $TtlTdas & " " & $TtlE)
	GUICtrlSetData($BTProg, $TtlTdas & " " & $TtlP)
	GUICtrlSetData($BTHerr, $TtlTdas & " " & $TtlH)
	GUICtrlSetData($BTComp, $TtlTdas & " " & $TtlM)
	GUICtrlSetData($BTOtro, $TtlTdas & " " & $TtlF)
EndFunc   ;==>_Ninguno

Func _Enable() ;Activa los botones

	GUICtrlSetState($BtnNngn, $GUI_ENABLE)
	GUICtrlSetState($BtnCmnzr, $GUI_ENABLE)
	GUICtrlSetState($BtnSlr, $GUI_ENABLE)
	GUICtrlSetState($Fin, $GUI_ENABLE)

	GUICtrlSetState($BTConf, $GUI_ENABLE)
	GUICtrlSetState($BDelConf, $GUI_ENABLE)
	GUICtrlSetState($BTApli, $GUI_ENABLE)
	GUICtrlSetState($BDelApli, $GUI_ENABLE)
	GUICtrlSetState($BTOfic, $GUI_ENABLE)
	GUICtrlSetState($BDelOfic, $GUI_ENABLE)

	GUICtrlSetState($BTRepr, $GUI_ENABLE)
	GUICtrlSetState($BDelRepr, $GUI_ENABLE)
	GUICtrlSetState($BTEdit, $GUI_ENABLE)
	GUICtrlSetState($BDelEdit, $GUI_ENABLE)
	GUICtrlSetState($BTProg, $GUI_ENABLE)
	GUICtrlSetState($BDelProg, $GUI_ENABLE)

	GUICtrlSetState($BTHerr, $GUI_ENABLE)
	GUICtrlSetState($BDelHerr, $GUI_ENABLE)
	GUICtrlSetState($BTComp, $GUI_ENABLE)
	GUICtrlSetState($BDelComp, $GUI_ENABLE)
	GUICtrlSetState($BTOtro, $GUI_ENABLE)
	GUICtrlSetState($BDelOtro, $GUI_ENABLE)

	GUICtrlSetState($BtnAdd, $GUI_ENABLE)
	GUICtrlSetState($BtnPre, $GUI_ENABLE)

	For $c = 0 To 19
		GUICtrlSetState($Conf[$c], $GUI_ENABLE)
		GUICtrlSetState($Apli[$c], $GUI_ENABLE)
		GUICtrlSetState($Ofic[$c], $GUI_ENABLE)
		GUICtrlSetState($Repr[$c], $GUI_ENABLE)
		GUICtrlSetState($Edit[$c], $GUI_ENABLE)
		GUICtrlSetState($Prog[$c], $GUI_ENABLE)
		GUICtrlSetState($Herr[$c], $GUI_ENABLE)
		GUICtrlSetState($Comp[$c], $GUI_ENABLE)
		GUICtrlSetState($Otro[$c], $GUI_ENABLE)
	Next

EndFunc   ;==>_Enable

Func _Disable() ;Desactiva los botones

	GUICtrlSetState($BtnSlr, $GUI_DISABLE)
	GUICtrlSetState($BtnNngn, $GUI_DISABLE)
	GUICtrlSetState($BtnCmnzr, $GUI_DISABLE)
	GUICtrlSetState($Fin, $GUI_DISABLE)

	GUICtrlSetState($BTConf, $GUI_DISABLE)
	GUICtrlSetState($BDelConf, $GUI_DISABLE)
	GUICtrlSetState($BTApli, $GUI_DISABLE)
	GUICtrlSetState($BDelApli, $GUI_DISABLE)
	GUICtrlSetState($BTOfic, $GUI_DISABLE)
	GUICtrlSetState($BDelOfic, $GUI_DISABLE)

	GUICtrlSetState($BTRepr, $GUI_DISABLE)
	GUICtrlSetState($BDelRepr, $GUI_DISABLE)
	GUICtrlSetState($BTEdit, $GUI_DISABLE)
	GUICtrlSetState($BDelEdit, $GUI_DISABLE)
	GUICtrlSetState($BTProg, $GUI_DISABLE)
	GUICtrlSetState($BDelProg, $GUI_DISABLE)

	GUICtrlSetState($BTHerr, $GUI_DISABLE)
	GUICtrlSetState($BDelHerr, $GUI_DISABLE)
	GUICtrlSetState($BTComp, $GUI_DISABLE)
	GUICtrlSetState($BDelComp, $GUI_DISABLE)
	GUICtrlSetState($BTOtro, $GUI_DISABLE)
	GUICtrlSetState($BDelOtro, $GUI_DISABLE)

	GUICtrlSetState($BtnAdd, $GUI_DISABLE)
	GUICtrlSetState($BtnPre, $GUI_DISABLE)

	For $c = 0 To 19
		GUICtrlSetState($Conf[$c], $GUI_DISABLE)
		GUICtrlSetState($Apli[$c], $GUI_DISABLE)
		GUICtrlSetState($Ofic[$c], $GUI_DISABLE)
		GUICtrlSetState($Repr[$c], $GUI_DISABLE)
		GUICtrlSetState($Edit[$c], $GUI_DISABLE)
		GUICtrlSetState($Prog[$c], $GUI_DISABLE)
		GUICtrlSetState($Herr[$c], $GUI_DISABLE)
		GUICtrlSetState($Comp[$c], $GUI_DISABLE)
		GUICtrlSetState($Otro[$c], $GUI_DISABLE)
	Next

EndFunc   ;==>_Disable

#****************************** FUNCIONES BOTENES ALL *****************************************************************************#

Func _Conf() ;Configuraciones
	$LeerC = GUICtrlRead($BTConf)

	For $c = 0 To 19
		If $LeerC = $TtlTdas & " " & $TtlC Then
			GUICtrlSetState($Conf[$c], $GUI_CHECKED)
			GUICtrlSetData($BTConf, $DscTds)
		Else
			If $LeerC = $DscTds Then
				GUICtrlSetState($Conf[$c], $GUI_UNCHECKED)
				GUICtrlSetData($BTConf, $TtlDflt)
			Else
				If $LeerC = $TtlDflt Then
					_DfltC()
					GUICtrlSetData($BTConf, $TtlTdas & " " & $TtlC)
				EndIf
			EndIf
		EndIf
	Next

EndFunc   ;==>_Conf

Func _Apli() ;Aplicaciones
	$LeerA = GUICtrlRead($BTApli)

	For $a = 0 To 19
		If $LeerA = $TtlTdas & " " & $TtlA Then
			GUICtrlSetState($Apli[$a], $GUI_CHECKED)
			GUICtrlSetData($BTApli, $DscTds)
		Else
			If $LeerA = $DscTds Then
				GUICtrlSetState($Apli[$a], $GUI_UNCHECKED)
				GUICtrlSetData($BTApli, $TtlDflt)
			Else
				If $LeerA = $TtlDflt Then
					_DfltA()
					GUICtrlSetData($BTApli, $TtlTdas & " " & $TtlA)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Apli

Func _Ofic() ;Oficina
	$LeerO = GUICtrlRead($BTOfic)

	For $o = 0 To 19
		If $LeerO = $TtlTdos & " " & $TtlO Then
			GUICtrlSetState($Ofic[$o], $GUI_CHECKED)
			GUICtrlSetData($BTOfic, $DscTds)
		Else
			If $LeerO = $DscTds Then
				GUICtrlSetState($Ofic[$o], $GUI_UNCHECKED)
				GUICtrlSetData($BTOfic, $TtlDflt)
			Else
				If $LeerO = $TtlDflt Then
					_DfltO()
					GUICtrlSetData($BTOfic, $TtlTdos & " " & $TtlO)
				EndIf
			EndIf
		EndIf
	Next

EndFunc   ;==>_Ofic

Func _Repr() ;Reproductores
	$LeerR = GUICtrlRead($BTRepr)

	For $r = 0 To 19
		If $LeerR = $TtlTdos & " " & $TtlR Then
			GUICtrlSetState($Repr[$r], $GUI_CHECKED)
			GUICtrlSetData($BTRepr, $DscTds)
		Else
			If $LeerR = $DscTds Then
				GUICtrlSetState($Repr[$r], $GUI_UNCHECKED)
				GUICtrlSetData($BTRepr, $TtlDflt)
			Else
				If $LeerR = $TtlDflt Then
					_DfltR()
					GUICtrlSetData($BTRepr, $TtlTdos & " " & $TtlR)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Repr

Func _Edit() ;Editores
	$LeerE = GUICtrlRead($BTEdit)

	For $e = 0 To 19
		If $LeerE = $TtlTdos & " " & $TtlE Then
			GUICtrlSetState($Edit[$e], $GUI_CHECKED)
			GUICtrlSetData($BTEdit, $DscTds)
		Else
			If $LeerE = $DscTds Then
				GUICtrlSetState($Edit[$e], $GUI_UNCHECKED)
				GUICtrlSetData($BTEdit, $TtlDflt)
			Else
				If $LeerE = $TtlDflt Then
					_DfltE()
					GUICtrlSetData($BTEdit, $TtlTdos & " " & $TtlE)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Edit

Func _Prog() ;Programacion
	$LeerP = GUICtrlRead($BTProg)

	For $p = 0 To 19
		If $LeerP = $TtlTdos & " " & $TtlP Then
			GUICtrlSetState($Prog[$p], $GUI_CHECKED)
			GUICtrlSetData($BTProg, $DscTds)
		Else
			If $LeerP = $DscTds Then
				GUICtrlSetState($Prog[$p], $GUI_UNCHECKED)
				GUICtrlSetData($BTProg, $TtlDflt)
			Else
				If $LeerP = $TtlDflt Then
					_DfltP()
					GUICtrlSetData($BTProg, $TtlTdos & " " & $TtlP)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Prog

Func _Herr() ;Herramientas
	$LeerH = GUICtrlRead($BTHerr)

	For $h = 0 To 19
		If $LeerH = $TtlTdas & " " & $TtlH Then
			GUICtrlSetState($Herr[$h], $GUI_CHECKED)
			GUICtrlSetData($BTHerr, $DscTds)
		Else
			If $LeerH = $DscTds Then
				GUICtrlSetState($Herr[$h], $GUI_UNCHECKED)
				GUICtrlSetData($BTHerr, $TtlDflt)
			Else
				If $LeerH = $TtlDflt Then
					_DfltH()
					GUICtrlSetData($BTHerr, $TtlTdas & " " & $TtlH)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Herr

Func _Comp() ;Complementos
	$LeerM = GUICtrlRead($BTComp)

	For $m = 0 To 19
		If $LeerM = $TtlTdos & " " & $TtlM Then
			GUICtrlSetState($Comp[$m], $GUI_CHECKED)
			GUICtrlSetData($BTComp, $DscTds)
		Else
			If $LeerM = $DscTds Then
				GUICtrlSetState($Comp[$m], $GUI_UNCHECKED)
				GUICtrlSetData($BTComp, $TtlDflt)
			Else
				If $LeerM = $TtlDflt Then
					_DfltM()
					GUICtrlSetData($BTComp, $TtlTdos & " " & $TtlM)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Comp

Func _Otros() ;Otros
	$LeerF = GUICtrlRead($BTOtro)

	For $f = 0 To 19
		If $LeerF = $TtlTdos & " " & $TtlF Then
			GUICtrlSetState($Otro[$f], $GUI_CHECKED)
			GUICtrlSetData($BTOtro, $DscTds)
		Else
			If $LeerF = $DscTds Then
				GUICtrlSetState($Otro[$f], $GUI_UNCHECKED)
				GUICtrlSetData($BTOtro, $TtlDflt)
			Else
				If $LeerF = $TtlDflt Then
					_DfltF()
					GUICtrlSetData($BTOtro, $TtlTdos & " " & $TtlF)
				EndIf
			EndIf
		EndIf
	Next
EndFunc   ;==>_Otros

#*************************** BOTONES DEFAULT *****************************************************************************#

Func _DfltC() ;Configuraciones

	For $c = 0 To 19
		GUICtrlSetState($Conf[$c], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf" & $c, "Estado", "") = "1" Then
			GUICtrlSetState($Conf[$c], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltC

Func _DfltA() ;Aplicaciones

	For $a = 0 To 19
		GUICtrlSetState($Apli[$a], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli" & $a, "Estado", "") = "1" Then
			GUICtrlSetState($Apli[$a], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltA

Func _DfltO() ;Oficina

	For $o = 0 To 19

		GUICtrlSetState($Ofic[$o], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic" & $o, "Estado", "") = "1" Then
			GUICtrlSetState($Ofic[$o], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltO

Func _DfltR() ;Reproductores

	For $r = 0 To 19

		GUICtrlSetState($Repr[$r], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr" & $r, "Estado", "") = "1" Then
			GUICtrlSetState($Repr[$r], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltR

Func _DfltE() ;Editores

	For $e = 0 To 19
		GUICtrlSetState($Edit[$e], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit" & $e, "Estado", "") = "1" Then
			GUICtrlSetState($Edit[$e], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltE

Func _DfltP() ;Programacion

	For $p = 0 To 19
		GUICtrlSetState($Prog[$p], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog" & $p, "Estado", "") = "1" Then
			GUICtrlSetState($Prog[$p], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltP

Func _DfltH() ;Herramientas

	For $h = 0 To 19
		GUICtrlSetState($Herr[$h], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr" & $h, "Estado", "") = "1" Then
			GUICtrlSetState($Herr[$h], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltH

Func _DfltM() ;Complementos

	For $m = 0 To 19
		GUICtrlSetState($Comp[$m], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp" & $m, "Estado", "") = "1" Then
			GUICtrlSetState($Comp[$m], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltM

Func _DfltF() ;Otros

	For $f = 0 To 19
		GUICtrlSetState($Otro[$f], $GUI_UNCHECKED)
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro" & $f, "Estado", "") = "1" Then
			GUICtrlSetState($Otro[$f], $GUI_CHECKED)
		EndIf
	Next
EndFunc   ;==>_DfltF

############# CREA EL RELOJ PARA EL PROGRAMA  ######################################################################

Func Hora()
	If $Hr >= 13 And $Hr <= 24 Then $Hr -= 12
	$Time = $Hr & " : " & @MIN
	GUICtrlSetData($oHora, "Hora: " & $Hr & " : " & @MIN & " : " & @SEC & " : " & $AP)
	GUICtrlSetFont(-1, 12, 400, 0, $FntCB)
EndFunc   ;==>Hora

############# LEE LA CLAVE DE WINDOWS ##############################################################################

Func _GetWindowsProductKey()
	Local Const $iKeyOffset = 52
	Local $sHKLM = "HKLM", $i
	If @OSArch = "X64" Then $sHKLM &= "64"
	Local $bKey = RegRead($sHKLM & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId")
	Local $aKeys[BinaryLen($bKey)]
	For $i = 0 To UBound($aKeys) - 1
		$aKeys[$i] = Int(BinaryMid($bKey, $i + 1, 1))
	Next
	Local Const $isWin8 = BitAND(Int($aKeys[66]) / 6, 1)
	$aKeys[66] = BitOR(BitAND($aKeys[66], 0xF7), BitAND($isWin8, 2) * 4)
	$i = 24
	Local $sChars = "BCDFGHJKMPQRTVWXY2346789", $iCur, $iX, $sKeyOutput, $iLast
	While $i > -1
		$iCur = 0
		$iX = 14
		While $iX > -1
			$iCur *= 256
			$iCur = $aKeys[$iX + $iKeyOffset] + $iCur
			$aKeys[$iX + $iKeyOffset] = Int($iCur / 24)
			$iCur = Mod($iCur, 24)
			$iX -= 1
		WEnd
		$i -= 1
		$sKeyOutput = StringMid($sChars, $iCur + 1, 1) & $sKeyOutput
		$iLast = $iCur
	WEnd
	If $isWin8 Then
		Local Const $sKeyPart1 = StringMid($sKeyOutput, 2, $iLast)
		Local Const $sInsert = "N"
		$sKeyOutput = StringReplace(StringTrimLeft($sKeyOutput, 1), $sKeyPart1, $sKeyPart1 & $sInsert, 1)
		If Not $iLast Then $sKeyOutput = $sInsert & $sKeyOutput
	EndIf
	Return StringRegExpReplace($sKeyOutput, '(\w{5})(\w{5})(\w{5})(\w{5})(\w{5})', '\1-\2-\3-\4-\5')
;~  Return StringMid($sKeyOutput, 1, 5) & "-" & _
;~                  StringMid($sKeyOutput, 6, 5) & "-" & _
;~                  StringMid($sKeyOutput, 11, 5) & "-" & _
;~                  StringMid($sKeyOutput, 16, 5) & "-" & _
;~                  StringMid($sKeyOutput, 21, 5)
EndFunc   ;==>_GetWindowsProductKey

############# CREA LOS CHECBOX ######################################################################################

Func _CBC() ;Configuraciones

	GUICtrlCreateGroup("", $IzqGrp1, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Configuraciones", $IzqTTl1, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf0", "Nombre Archivo", "") = True Then
		$Conf[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf0", "Nombre Archivo", ""), $IzqCB1, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-1, $ZFCB, 400, 0, $FntCB)

		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf0", "Icono", ""), 0, $IzqIco1, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf1", "Nombre Archivo", "") = True Then
		$Conf[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf1", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf1", "Icono", ""), 0, $IzqIco1, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf2", "Nombre Archivo", "") = True Then
		$Conf[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf2", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf2", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf3", "Nombre Archivo", "") = True Then
		$Conf[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf3", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf3", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf4", "Nombre Archivo", "") = True Then
		$Conf[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf4", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf4", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Nombre Archivo", "") = True Then
		$Conf[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Nombre Archivo", "") = True Then
		$Conf[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf7", "Nombre Archivo", "") = True Then
		$Conf[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf7", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf7", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf8", "Nombre Archivo", "") = True Then
		$Conf[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf8", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf8", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf9", "Nombre Archivo", "") = True Then
		$Conf[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf9", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf9", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf10", "Nombre Archivo", "") = True Then
		$Conf[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf10", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf10", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf11", "Nombre Archivo", "") = True Then
		$Conf[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf11", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf11", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf12", "Nombre Archivo", "") = True Then
		$Conf[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf12", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf12", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf13", "Nombre Archivo", "") = True Then
		$Conf[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf13", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf13", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf14", "Nombre Archivo", "") = True Then
		$Conf[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf14", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf14", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf15", "Nombre Archivo", "") = True Then
		$Conf[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf15", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf5", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf16", "Nombre Archivo", "") = True Then
		$Conf[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf16", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf6", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf17", "Nombre Archivo", "") = True Then
		$Conf[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf17", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf17", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf18", "Nombre Archivo", "") = True Then
		$Conf[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf18", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf18", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf19", "Nombre Archivo", "") = True Then
		$Conf[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf19", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf19", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Conf[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltC()

EndFunc   ;==>_CBC

Func _CBA() ;Aplicaciones

	GUICtrlCreateGroup("", $IzqGrp2, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Aplicaciones", $IzqTTl2, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli0", "Nombre Archivo", "") = True Then
		$Apli[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli0", "Nombre Archivo", ""), $IzqCB2, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli0", "Icono", ""), 0, $IzqIco2, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli1", "Nombre Archivo", "") = True Then
		$Apli[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli1", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli1", "Icono", ""), 0, $IzqIco2, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli2", "Nombre Archivo", "") = True Then
		$Apli[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli2", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli2", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli3", "Nombre Archivo", "") = True Then
		$Apli[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli3", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli3", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli4", "Nombre Archivo", "") = True Then
		$Apli[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli4", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli4", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Nombre Archivo", "") = True Then
		$Apli[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Nombre Archivo", "") = True Then
		$Apli[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli7", "Nombre Archivo", "") = True Then
		$Apli[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli7", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli7", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli8", "Nombre Archivo", "") = True Then
		$Apli[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli8", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli8", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli9", "Nombre Archivo", "") = True Then
		$Apli[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli9", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli9", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli10", "Nombre Archivo", "") = True Then
		$Apli[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli10", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli10", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli11", "Nombre Archivo", "") = True Then
		$Apli[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli11", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli11", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli12", "Nombre Archivo", "") = True Then
		$Apli[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli12", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli12", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli13", "Nombre Archivo", "") = True Then
		$Apli[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli13", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli13", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli14", "Nombre Archivo", "") = True Then
		$Apli[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli14", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli14", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli15", "Nombre Archivo", "") = True Then
		$Apli[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli15", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli5", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli16", "Nombre Archivo", "") = True Then
		$Apli[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli16", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli6", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli17", "Nombre Archivo", "") = True Then
		$Apli[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli17", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli17", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli18", "Nombre Archivo", "") = True Then
		$Apli[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli18", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli18", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli19", "Nombre Archivo", "") = True Then
		$Apli[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli19", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli19", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Apli[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltA()

EndFunc   ;==>_CBA

Func _CBO() ;Oficina

	GUICtrlCreateGroup("", $IzqGrp3, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Oficina", $IzqTTl3, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic0", "Nombre Archivo", "") = True Then
		$Ofic[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic0", "Nombre Archivo", ""), $IzqCB3, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic0", "Icono", ""), 0, $IzqIco3, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic1", "Nombre Archivo", "") = True Then
		$Ofic[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic1", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic1", "Icono", ""), 0, $IzqIco3, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic2", "Nombre Archivo", "") = True Then
		$Ofic[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic2", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic2", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic3", "Nombre Archivo", "") = True Then
		$Ofic[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic3", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic3", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic4", "Nombre Archivo", "") = True Then
		$Ofic[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic4", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic4", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Nombre Archivo", "") = True Then
		$Ofic[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Nombre Archivo", "") = True Then
		$Ofic[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic7", "Nombre Archivo", "") = True Then
		$Ofic[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic7", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic7", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic8", "Nombre Archivo", "") = True Then
		$Ofic[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic8", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic8", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic9", "Nombre Archivo", "") = True Then
		$Ofic[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic9", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic9", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic10", "Nombre Archivo", "") = True Then
		$Ofic[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic10", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic10", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic11", "Nombre Archivo", "") = True Then
		$Ofic[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic11", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic11", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic12", "Nombre Archivo", "") = True Then
		$Ofic[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic12", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic12", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic13", "Nombre Archivo", "") = True Then
		$Ofic[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic13", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic13", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic14", "Nombre Archivo", "") = True Then
		$Ofic[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic14", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic14", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic15", "Nombre Archivo", "") = True Then
		$Ofic[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic15", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic5", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic16", "Nombre Archivo", "") = True Then
		$Ofic[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic16", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic6", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic17", "Nombre Archivo", "") = True Then
		$Ofic[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic17", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic17", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic18", "Nombre Archivo", "") = True Then
		$Ofic[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic18", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic18", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic19", "Nombre Archivo", "") = True Then
		$Ofic[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic19", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic19", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Ofic[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltO()

EndFunc   ;==>_CBO

Func _CBR() ;Reproductores

	GUICtrlCreateGroup("", $IzqGrp1, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Reproductores", $IzqTTl1, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr0", "Nombre Archivo", "") = True Then
		$Repr[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr0", "Nombre Archivo", ""), $IzqCB1, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr0", "Icono", ""), 0, $IzqIco1, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr1", "Nombre Archivo", "") = True Then
		$Repr[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr1", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr1", "Icono", ""), 0, $IzqIco1, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr2", "Nombre Archivo", "") = True Then
		$Repr[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr2", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr2", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr3", "Nombre Archivo", "") = True Then
		$Repr[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr3", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr3", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr4", "Nombre Archivo", "") = True Then
		$Repr[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr4", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr4", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Nombre Archivo", "") = True Then
		$Repr[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Nombre Archivo", "") = True Then
		$Repr[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr7", "Nombre Archivo", "") = True Then
		$Repr[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr7", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr7", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr8", "Nombre Archivo", "") = True Then
		$Repr[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr8", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr8", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr9", "Nombre Archivo", "") = True Then
		$Repr[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr9", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr9", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr10", "Nombre Archivo", "") = True Then
		$Repr[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr10", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr10", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr11", "Nombre Archivo", "") = True Then
		$Repr[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr11", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr11", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr12", "Nombre Archivo", "") = True Then
		$Repr[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr12", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr12", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr13", "Nombre Archivo", "") = True Then
		$Repr[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr13", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr13", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr14", "Nombre Archivo", "") = True Then
		$Repr[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr14", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr14", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr15", "Nombre Archivo", "") = True Then
		$Repr[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr15", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr5", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr16", "Nombre Archivo", "") = True Then
		$Repr[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr16", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr6", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr17", "Nombre Archivo", "") = True Then
		$Repr[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr17", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr17", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr18", "Nombre Archivo", "") = True Then
		$Repr[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr18", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr18", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr19", "Nombre Archivo", "") = True Then
		$Repr[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr19", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr19", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Repr[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltR()

EndFunc   ;==>_CBR

Func _CBE() ;Editores

	GUICtrlCreateGroup("", $IzqGrp2, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Editores", $IzqTTl2, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit0", "Nombre Archivo", "") = True Then
		$Edit[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit0", "Nombre Archivo", ""), $IzqCB2, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit0", "Icono", ""), 0, $IzqIco2, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit1", "Nombre Archivo", "") = True Then
		$Edit[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit1", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit1", "Icono", ""), 0, $IzqIco2, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit2", "Nombre Archivo", "") = True Then
		$Edit[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit2", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit2", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit3", "Nombre Archivo", "") = True Then
		$Edit[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit3", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit3", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit4", "Nombre Archivo", "") = True Then
		$Edit[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit4", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit4", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Nombre Archivo", "") = True Then
		$Edit[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Nombre Archivo", "") = True Then
		$Edit[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit7", "Nombre Archivo", "") = True Then
		$Edit[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit7", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit7", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit8", "Nombre Archivo", "") = True Then
		$Edit[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit8", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit8", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit9", "Nombre Archivo", "") = True Then
		$Edit[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit9", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit9", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit10", "Nombre Archivo", "") = True Then
		$Edit[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit10", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit10", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit11", "Nombre Archivo", "") = True Then
		$Edit[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit11", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit11", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit12", "Nombre Archivo", "") = True Then
		$Edit[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit12", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit12", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit13", "Nombre Archivo", "") = True Then
		$Edit[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit13", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit13", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit14", "Nombre Archivo", "") = True Then
		$Edit[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit14", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit14", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit15", "Nombre Archivo", "") = True Then
		$Edit[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit15", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit5", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit16", "Nombre Archivo", "") = True Then
		$Edit[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit16", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit6", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit17", "Nombre Archivo", "") = True Then
		$Edit[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit17", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit17", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit18", "Nombre Archivo", "") = True Then
		$Edit[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit18", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit18", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit19", "Nombre Archivo", "") = True Then
		$Edit[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit19", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit19", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Edit[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltE()

EndFunc   ;==>_CBE

Func _CBP() ;Programacion

	GUICtrlCreateGroup("", $IzqGrp3, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Programacion", $IzqTTl3, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog0", "Nombre Archivo", "") = True Then
		$Prog[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog0", "Nombre Archivo", ""), $IzqCB3, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog0", "Icono", ""), 0, $IzqIco3, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog1", "Nombre Archivo", "") = True Then
		$Prog[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog1", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog1", "Icono", ""), 0, $IzqIco3, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog2", "Nombre Archivo", "") = True Then
		$Prog[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog2", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog2", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog3", "Nombre Archivo", "") = True Then
		$Prog[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog3", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog3", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog4", "Nombre Archivo", "") = True Then
		$Prog[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog4", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog4", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Nombre Archivo", "") = True Then
		$Prog[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Nombre Archivo", "") = True Then
		$Prog[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog7", "Nombre Archivo", "") = True Then
		$Prog[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog7", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog7", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog8", "Nombre Archivo", "") = True Then
		$Prog[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog8", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog8", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog9", "Nombre Archivo", "") = True Then
		$Prog[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog9", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog9", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog10", "Nombre Archivo", "") = True Then
		$Prog[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog10", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog10", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog11", "Nombre Archivo", "") = True Then
		$Prog[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog11", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog11", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog12", "Nombre Archivo", "") = True Then
		$Prog[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog12", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog12", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog13", "Nombre Archivo", "") = True Then
		$Prog[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog13", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog13", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog14", "Nombre Archivo", "") = True Then
		$Prog[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog14", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog14", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog15", "Nombre Archivo", "") = True Then
		$Prog[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog15", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog5", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog16", "Nombre Archivo", "") = True Then
		$Prog[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog16", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog6", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog17", "Nombre Archivo", "") = True Then
		$Prog[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog17", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog17", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog18", "Nombre Archivo", "") = True Then
		$Prog[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog18", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog18", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog19", "Nombre Archivo", "") = True Then
		$Prog[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog19", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog19", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Prog[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltP()

EndFunc   ;==>_CBP

Func _CBH() ;Herramientas

	GUICtrlCreateGroup("", $IzqGrp1, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Herramientas", $IzqTTl1, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr0", "Nombre Archivo", "") = True Then
		$Herr[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr0", "Nombre Archivo", ""), $IzqCB1, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr0", "Icono", ""), 0, $IzqIco1, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr1", "Nombre Archivo", "") = True Then
		$Herr[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr1", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr1", "Icono", ""), 0, $IzqIco1, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr2", "Nombre Archivo", "") = True Then
		$Herr[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr2", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr2", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr3", "Nombre Archivo", "") = True Then
		$Herr[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr3", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr3", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr4", "Nombre Archivo", "") = True Then
		$Herr[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr4", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr4", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Nombre Archivo", "") = True Then
		$Herr[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Nombre Archivo", "") = True Then
		$Herr[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr7", "Nombre Archivo", "") = True Then
		$Herr[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr7", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr7", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr8", "Nombre Archivo", "") = True Then
		$Herr[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr8", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr8", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr9", "Nombre Archivo", "") = True Then
		$Herr[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr9", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr9", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr10", "Nombre Archivo", "") = True Then
		$Herr[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr10", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr10", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr11", "Nombre Archivo", "") = True Then
		$Herr[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr11", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr11", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr12", "Nombre Archivo", "") = True Then
		$Herr[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr12", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr12", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr13", "Nombre Archivo", "") = True Then
		$Herr[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr13", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr13", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr14", "Nombre Archivo", "") = True Then
		$Herr[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr14", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr14", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr15", "Nombre Archivo", "") = True Then
		$Herr[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr15", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr5", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr16", "Nombre Archivo", "") = True Then
		$Herr[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr16", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr6", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr17", "Nombre Archivo", "") = True Then
		$Herr[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr17", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr17", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr18", "Nombre Archivo", "") = True Then
		$Herr[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr18", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr18", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr19", "Nombre Archivo", "") = True Then
		$Herr[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr19", "Nombre Archivo", ""), $IzqCB1, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr19", "Icono", ""), 0, $IzqIco1, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Herr[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltH()

EndFunc   ;==>_CBH

Func _CBM() ;Complementos

	GUICtrlCreateGroup("", $IzqGrp2, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	GUICtrlCreateLabel("Complementos", $IzqTTl2, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont(-1, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp0", "Nombre Archivo", "") = True Then
		$Comp[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp0", "Nombre Archivo", ""), $IzqCB2, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp0", "Icono", ""), 0, $IzqIco2, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp1", "Nombre Archivo", "") = True Then
		$Comp[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp1", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp1", "Icono", ""), 0, $IzqIco2, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp2", "Nombre Archivo", "") = True Then
		$Comp[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp2", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp2", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp3", "Nombre Archivo", "") = True Then
		$Comp[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp3", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp3", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp4", "Nombre Archivo", "") = True Then
		$Comp[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp4", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp4", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Nombre Archivo", "") = True Then
		$Comp[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Nombre Archivo", "") = True Then
		$Comp[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp7", "Nombre Archivo", "") = True Then
		$Comp[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp7", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp7", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp8", "Nombre Archivo", "") = True Then
		$Comp[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp8", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp8", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp9", "Nombre Archivo", "") = True Then
		$Comp[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp9", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp9", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp10", "Nombre Archivo", "") = True Then
		$Comp[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp10", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp10", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp11", "Nombre Archivo", "") = True Then
		$Comp[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp11", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp11", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp12", "Nombre Archivo", "") = True Then
		$Comp[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp12", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp12", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp13", "Nombre Archivo", "") = True Then
		$Comp[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp13", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp13", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp14", "Nombre Archivo", "") = True Then
		$Comp[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp14", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp14", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp15", "Nombre Archivo", "") = True Then
		$Comp[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp15", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp5", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp16", "Nombre Archivo", "") = True Then
		$Comp[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp16", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp6", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp17", "Nombre Archivo", "") = True Then
		$Comp[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp17", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp17", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp18", "Nombre Archivo", "") = True Then
		$Comp[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp18", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp18", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp19", "Nombre Archivo", "") = True Then
		$Comp[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp19", "Nombre Archivo", ""), $IzqCB2, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp19", "Icono", ""), 0, $IzqIco2, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Comp[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltM()

EndFunc   ;==>_CBM

Func _CBF() ;Otros

	GUICtrlCreateGroup("", $IzqGrp3, $ArbGrp1, $AncGrp, $GruGrp, $StyloGrp)
	$LblOtro = GUICtrlCreateLabel("Otros", $IzqTTl3, $ArbTTl, $AncTTl, $GruTtl)
	GUICtrlSetFont($LblOtro, $ZFTtl, 400, 0, $FntTtl)

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro0", "Nombre Archivo", "") = True Then
		$Otro[0] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro0", "Nombre Archivo", ""), $IzqCB3, $ArbCB1, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro0", "Icono", ""), 0, $IzqIco3, $ArbCB1, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[0], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro0", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro0", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro1", "Nombre Archivo", "") = True Then
		$Otro[1] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro1", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + $Sep, $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro1", "Icono", ""), 0, $IzqIco3, $ArbCB1 + $Sep, $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[1], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro1", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro1", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro2", "Nombre Archivo", "") = True Then
		$Otro[2] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro2", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 2), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro2", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 2), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[2], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro2", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro2", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro3", "Nombre Archivo", "") = True Then
		$Otro[3] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro3", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 3), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro3", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 3), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[3], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro3", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro3", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro4", "Nombre Archivo", "") = True Then
		$Otro[4] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro4", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 4), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro4", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 4), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[4], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro4", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro4", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Nombre Archivo", "") = True Then
		$Otro[5] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 5), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 5), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[5], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Nombre Archivo", "") = True Then
		$Otro[6] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 6), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 6), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[6], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro7", "Nombre Archivo", "") = True Then
		$Otro[7] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro7", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 7), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro7", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 7), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[7], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro7", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro7", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro8", "Nombre Archivo", "") = True Then
		$Otro[8] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro8", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 8), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro8", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 8), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[8], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro8", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro8", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro9", "Nombre Archivo", "") = True Then
		$Otro[9] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro9", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 9), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro9", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 9), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[9], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro9", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro9", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro10", "Nombre Archivo", "") = True Then
		$Otro[10] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro10", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 10), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro10", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 10), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[10], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro10", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro10", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro11", "Nombre Archivo", "") = True Then
		$Otro[11] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro11", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 11), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro11", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 11), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[11], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro11", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro11", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro12", "Nombre Archivo", "") = True Then
		$Otro[12] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro12", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 12), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro12", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 12), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[12], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro12", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro12", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro13", "Nombre Archivo", "") = True Then
		$Otro[13] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro13", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 13), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro13", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 13), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[13], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro13", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro13", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro14", "Nombre Archivo", "") = True Then
		$Otro[14] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro14", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 14), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro14", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 14), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[14], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro14", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro14", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro15", "Nombre Archivo", "") = True Then
		$Otro[15] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro15", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 15), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro5", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 15), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[15], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro15", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro15", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro16", "Nombre Archivo", "") = True Then
		$Otro[16] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro16", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 16), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro6", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 16), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[16], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro16", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro16", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro17", "Nombre Archivo", "") = True Then
		$Otro[17] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro17", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 17), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro17", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 17), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[17], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro17", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro17", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro18", "Nombre Archivo", "") = True Then
		$Otro[18] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro18", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 18), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro18", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 18), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[18], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro18", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro18", "Nombre Archivo", ""), 1, 3)
	EndIf

	If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro19", "Nombre Archivo", "") = True Then
		$Otro[19] = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro19", "Nombre Archivo", ""), $IzqCB3, $ArbCB1 + ($Sep * 19), $AncCB, $GruCB, $Line1)
		GUICtrlSetBkColor(-1, $ClrBtn)
		GUICtrlSetFont(-2, $ZFCB, 400, 0, $FntCB)
		GUICtrlCreateIcon(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro19", "Icono", ""), 0, $IzqIco3, $ArbCB1 + ($Sep * 19), $AnchIco, $GruIco, $Line1)
		GUICtrlSetTip($Otro[19], FileRead(IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro19", "Info", "")), IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro19", "Nombre Archivo", ""), 1, 3)
	EndIf

	_DfltF()

EndFunc   ;==>_CBF

Func _Red()

	If $OSV = "WIN_7" Then
		MsgBox(0, "RED", "Esta aplicación es para el OS Windows XP", 5)
	Else
		$iMsgBoxAnswer = MsgBox(4, "Regedit", "Desea agregar el registro a su Sistema", 5)
		Select
			Case $iMsgBoxAnswer = 6 ;Yes
				RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters", "IRPStackSize", "REG_DWORD", "00000024")
				MsgBox(0, "Reparar la RED", "Se a añadido el registro a su Sistema para reparar la RED", 5)
			Case $iMsgBoxAnswer = 7 ;No
				MsgBox(0, "Regedit", "No se agrego el registro a su Sistema", 5)
		EndSelect
	EndIf

EndFunc   ;==>_Red

Func _Usuario()


	$iMsgBoxAnswer = MsgBox(4, "Regedit", "Desea cambiar el nombre de usuario de su Sistema Operativo", 5)
	Select
		Case $iMsgBoxAnswer = 6 ;Yes
			$NameUser = InputBox("Usuario", "El usuario actual es: " & $User & @CRLF & @CRLF & " Escriba el nuevo nombre de usuario", "Nombre de usuario aqui")
			If $NameUser = "" Or $NameUser = "Nombre de usuario aqui" Then
				MsgBox(0, "Error", "Debe escribir un nombre de usuario", 5)
				_Usuario()
			Else
				RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", "REG_SZ", $NameUser)
				MsgBox(0, "Usuario", "Se cambio el nomnbre de usuario de su sistema de: " & $User & " a " & $NameUser, 5)
			EndIf
		Case $iMsgBoxAnswer = 7 ;No
			MsgBox(0, "Regedit", "No se cambio el nombre de usuario a su Sistema", 5)
	EndSelect

EndFunc   ;==>_Usuario

Func _Organizacion()

	If $OSV = "WIN_7" Then
		$NameOrg = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
	EndIf
	If $OSV = "WIN_XP" Then
		$NameOrg = RegRead("HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion", "RegisteredOrganization")
	EndIf
	$iMsgBoxAnswer = MsgBox(4, "Regedit", "Desea cambiar el nombre de la Organizacion de su Sistema Operativo", 5)
	Select
		Case $iMsgBoxAnswer = 6 ;Yes
			$NameUser = InputBox("Organizacion", "La Organizacion actual es: " & $NameOrg & @CRLF & @CRLF & " Escriba el nuevo nombre de la Organizacion", "Nombre de organizacion aqui")
			If $NameUser = "" Or $NameUser = "Nombre de organizacion aqui" Then
				MsgBox(0, "Error", "Debe escribir un nombre de  la organizacion", 5)
				_Usuario()
			Else
				If $OSV = "WIN_XP" Then
					RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "REG_SZ", $NameUser)
				EndIf
				If $OSV = "WIN_7" Then
					RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "REG_SZ", $NameUser)
					RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\00002109110000000000000000F01FEC\InstallProperties", "RegCompany""REG_SZ", $NameUser)
					MsgBox(0, "Organizacion", "Se cambio el nomnbre de la Organizacion de su sistema de: " & $NameOrg & " a " & $NameUser, 5)
				EndIf
			EndIf
		Case $iMsgBoxAnswer = 7 ;No
			MsgBox(0, "Regedit", "No se cambio el nombre de la Organizacion a su Sistema", 5)
	EndSelect

EndFunc   ;==>_Organizacion

########## ELIMINA LOS PROGRAMAS ####################################################################################

Func _DelC() ;Configuraciones
_ContC()

If $ContC = $ParC Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	  For $DC = 0 To 19
	  If GUICtrlRead($Conf[$DC]) = $GUI_CHECKED Then
			;IniDelete($sFilePath, "Conf" & $DC)
		 EndIf
	  Next
	  MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	  WinClose($TtlGuiInst)
	  ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	  EndIf

EndFunc   ;==>_DelC

Func _DelA() ;Aplicaciones
_ContA()

If $ContA = $ParA Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DA = 0 To 19
		If GUICtrlRead($Apli[$DA]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli" & $DA)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelA

Func _DelO() ;Oficina
_ContO()

If $ContO = $ParO Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DO = 0 To 19
		If GUICtrlRead($Ofic[$DO]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic" & $DO)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelO

Func _DelR() ;Reproductores
_ContR()

If $ContR = $ParR Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DR = 0 To 19
		If GUICtrlRead($Repr[$DR]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr" & $DR)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelR

Func _DelE() ;Editores
_ContE()

If $ContE = $ParE Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DE = 0 To 19
		If GUICtrlRead($Edit[$DE]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit" & $DE)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelE

Func _DelP() ;Programacion
_ContP()

If $ContP = $ParP Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DP = 0 To 19
		If GUICtrlRead($Prog[$DP]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog" & $DP)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelP

Func _DelH() ;Herramientas
_ContH()

If $ContH = $ParH Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DH = 0 To 19
		If GUICtrlRead($Herr[$DH]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr" & $DH)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelH

Func _DelM() ;Complementos
_ContM()

If $ContM = $ParM Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DM = 0 To 19
		If GUICtrlRead($Comp[$DM]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp" & $DM)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelM

Func _DelF() ;Otros
_ContF()

If $ContF = $ParF Then
   MsgBox(0,"Eliminar Programa","No a seleccionado ningun programa"&@CRLF&@CRLF&"Selecione el o los programas que quiere eliminar",5)
   Else
	For $DF = 0 To 19
		If GUICtrlRead($Otro[$DF]) = $GUI_CHECKED Then
			;IniDelete(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro" & $DF)
			EndIf
	Next
	MsgBox(0, "Aviso", "Se ha eliminado el programa", 5)
	WinClose($TtlGuiInst)
	ShellExecute(@ScriptDir & "\IUCCG v.2.exe")
	EndIf
EndFunc   ;==>_DelF

######### NUMEROS PARA LOS PROGRAMAS #########################################################################

Func _NumC() ;Configuraciones

	$IniC = 106
	For $NumC = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf" & $NumC, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumC + 1, $IzqCB1 - 41, $IniC, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniC += $Sep
		EndIf
	 Next
EndFunc   ;==>_NumC

Func _NumA() ;Aplicaciones
	$IniA = 107
	For $NumA = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli" & $NumA, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumA + 1, $IzqCB2 - 41, $IniA, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniA += $Sep
		EndIf
	Next
EndFunc   ;==>_NumA

Func _NumO() ;Oficina
	$IniO = 107
	For $NumO = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic" & $NumO, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumO + 1, $IzqCB3 - 41, $IniO, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniO += $Sep
		EndIf
	Next
EndFunc   ;==>_NumO

Func _NumR() ;Reproductores
	$IniR = 107
	For $NumR = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr" & $NumR, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumR + 1, $IzqCB1 - 41, $IniR, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniR += $Sep
		EndIf
	Next
EndFunc   ;==>_NumR

Func _NumE() ;Editores
	$IniE = 107
	For $NumE = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit" & $NumE, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumE + 1, $IzqCB2 - 41, $IniE, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniE += $Sep
		EndIf
	Next
EndFunc   ;==>_NumE

Func _NumP() ;Programacion
	$IniP = 107
	For $NumP = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog" & $NumP, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumP + 1, $IzqCB3 - 41, $IniP, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniP += $Sep
		EndIf
	Next
EndFunc   ;==>_NumP

Func _NumH() ;Herramientas
	$IniH = 107
	For $NumH = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr" & $NumH, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumH + 1, $IzqCB1 - 41, $IniH, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniH += $Sep
		EndIf
	Next
EndFunc   ;==>_NumH

Func _NumM() ;Complementos
	$IniM = 107
	For $NumM = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp" & $NumM, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumM + 1, $IzqCB2 - 41, $IniM, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniM += $Sep
		EndIf
	Next
EndFunc   ;==>_NumM

Func _NumF() ;Otros
	$IniF = 107
	For $NumF = 0 To 20
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro" & $NumF, "Nombre Archivo", "") = True Then
			GUICtrlCreateLabel($NumF + 1, $IzqCB3 - 41, $IniF, $AncCB - 160, $GruCB - 5, $SS_CENTER)
			GUICtrlSetFont(-1, $ZFCB, 800, 0, $FntCB)
			$IniF += $Sep
		EndIf
	Next
EndFunc   ;==>_NumF
####### CUENTA CUANTOS PROGRAMAS HAY AGREGADOS AL INSTALADOR #####################################################
Func _Contar()

	$ContarP = 0

############# Seccion de Configuraciones ########################################################################################

	For $ContC = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf"&$ContC, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	 Next
############# Seccion de Aplicaciones ########################################################################################
	For $ContA = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli"&$ContA, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Oficina ########################################################################################
	For $ContO = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic"&$ContO, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Reproductores ########################################################################################
	For $ContR = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr"&$ContR, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Editores ########################################################################################
	For $ContE = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit"&$ContE, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Programacion ########################################################################################
	For $ContP = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog"&$ContP, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Herramientas ########################################################################################
	For $ContH = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr"&$ContH, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Complementos ########################################################################################
	For $ContM = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp"&$ContM, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next
############# Seccion de Otros ########################################################################################
	For $ContF = 0 To 19
		If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro"&$ContF, "Nombre Archivo", "") = True Then
			$ContarP = $ContarP + 1
		EndIf
	Next

EndFunc   ;==>_Contar

####### Verifica que se encuentre un programa seleccionado para eliminarlo ########################################

Func _ContC() ;Configuraciones

$ContC = 0
For $CC = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Conf" & $CC, "Nombre Archivo", "") = True Then
   $ContC = $ContC + 1
   EndIf
Next

$ParC = 0
For $PC = 0 To 19
   If GUICtrlRead($Conf[$PC]) = $GUI_UNCHECKED  Then
	  $ParC = $ParC + 1
   EndIf
Next

EndFunc

Func _ContA();Aplicaciones

$ContA = 0
For $CA = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Apli" & $CA, "Nombre Archivo", "") = True Then
   $ContA = $ContA + 1
   EndIf
Next

$ParA = 0
For $PA = 0 To 19
   If GUICtrlRead($Apli[$PA]) = $GUI_UNCHECKED  Then
	  $ParA = $ParA + 1
   EndIf
Next

EndFunc

Func _ContO() ;Oficina

$ContO = 0
For $CO = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Ofic" & $CO, "Nombre Archivo", "") = True Then
   $ContO = $ContO + 1
   EndIf
Next

$ParO = 0
For $PO = 0 To 19
   If GUICtrlRead($Ofic[$PO]) = $GUI_UNCHECKED  Then
	  $ParO = $ParO + 1
   EndIf
Next

EndFunc

Func _ContR() ;Reproductores

$ContR = 0
For $CR = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Repr" & $CR, "Nombre Archivo", "") = True Then
   $ContR = $ContR + 1
   EndIf
Next

$ParR = 0
For $PR = 0 To 19
   If GUICtrlRead($Repr[$PR]) = $GUI_UNCHECKED  Then
	  $ParR = $ParR + 1
   EndIf
Next
EndFunc

Func _ContE() ;Editores

$ContE = 0
For $CE = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Edit" & $CE, "Nombre Archivo", "") = True Then
   $ContE = $ContE + 1
   EndIf
Next

$ParE = 0
For $PE = 0 To 19
   If GUICtrlRead($Edit[$PE]) = $GUI_UNCHECKED  Then
	  $ParE = $ParE + 1
   EndIf
Next

EndFunc

Func _ContP() ;Programacion

$ContP = 0
For $CP = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Prog" & $CP, "Nombre Archivo", "") = True Then
   $ContP = $ContP + 1
   EndIf
Next

$ParP = 0
For $PP = 0 To 19
   If GUICtrlRead($Prog[$PP]) = $GUI_UNCHECKED  Then
	  $ParP = $ParP + 1
   EndIf
Next

EndFunc

Func _ContH() ;Herramientas

$ContH = 0
For $CH = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Herr" & $CH, "Nombre Archivo", "") = True Then
   $ContH = $ContH + 1
   EndIf
Next

$ParH = 0
For $PH = 0 To 19
   If GUICtrlRead($Herr[$PH]) = $GUI_UNCHECKED  Then
	  $ParH = $ParH + 1
   EndIf
Next

EndFunc

Func _ContM() ;Complementos

$ContM = 0
For $CM = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Comp" & $CM, "Nombre Archivo", "") = True Then
   $ContM = $ContM + 1
   EndIf
Next

$ParM = 0
For $PM = 0 To 19
   If GUICtrlRead($Comp[$PM]) = $GUI_UNCHECKED  Then
	  $ParM = $ParM + 1
   EndIf
Next

EndFunc

Func _ContF() ;Otros

$ContF = 0
For $CF = 0 To 19
If IniRead(@ScriptDir & "\Datos\IUCCG V.2.ini", "Otro" & $CF, "Nombre Archivo", "") = True Then
   $ContF = $ContF + 1
   EndIf
Next

$ParF = 0
For $PF = 0 To 19
   If GUICtrlRead($Otro[$PF]) = $GUI_UNCHECKED  Then
	  $ParF = $ParF + 1
   EndIf
Next

EndFunc