Global $GDIDll = DllOpen("GDIPlus.dll"), $oIE
Global Const $hGDI32 = DllOpen("gdi32.dll")
Global Const $hUSER32 = DllOpen("user32.dll")
Global Const $hBotonesFont1 = _CreateFont(14, 400, 256, "Trebuchet MS")
Global Const $hLabelsFont1 = _CreateFont(10, 400, 256, "Trebuchet MS")
Global Const $hTitleFont = _CreateFont(15, 800, 258, "Trebuchet MS")
Global Const $hLabelsFont2 = _CreateFont(11, 400, 256, "Trebuchet MS")
Global Const $hFontHelpGUITitle = _CreateFont(12, 800, 256, "Trebuchet MS")
Global Const $hFontHelpGUILabel = _CreateFont(8, 600, 256)
Global Const $hLabelsFont4 = _CreateFont(10, 400, 256, "Trebuchet MS")
Global Const $hLabelsFont5 = _CreateFont(9, 300, 256, "Trebuchet MS")
Global Const $hFontLabels3 = _CreateFont(10, 200, 262, "Trebuchet MS")
Global Const $hLabelsFont = _CreateFont(12, 400, 256, "Trebuchet MS")

Global $sDIR = @TempDir & "\Resources\sink", $sCB, $sMB, $sr = 1, $iHovMail = 0, $iHovMail1 = 0
_GDILoad()

Func _GuiGn7($sTitulo, $sAncho, $sAlto, $sX = -1, $sY = -1, $cTitle = 0xCCCCCC, $cBackGR = 0xFFFFFF)
	Local $gGuiZ, $wIcon
	_CheckFiles()
	Local $sZ0 = _GetSize($sDIR & "\0.bmp"), $sZ1 = _GetSize($sDIR & "\1.bmp"), $sZ2 = _GetSize($sDIR & "\2.bmp")
	Local $sZ3 = _GetSize($sDIR & "\3.bmp"), $sZ4 = _GetSize($sDIR & "\4.bmp"), $sZ5 = _GetSize($sDIR & "\5.bmp")
	Local $sZ6 = _GetSize($sDIR & "\6.bmp"), $sZ7 = _GetSize($sDIR & "\7.bmp");, $sM1 = _GetSize($sDIR & "\min1.bmp")
	$gGuiZ = GUICreate($sTitulo, $sAncho, $sAlto, $sX, $sY, BitOR(0x00020000,0x00080000,0x80000000), 0)
	GUISetBkColor($cBackGR)
	GUICtrlCreatePic($sDIR & "\0.bmp", 0, 0, $sZ0[0], $sZ0[1], -1, 0x00100000)
	GUICtrlCreatePic($sDIR & "\1.bmp", $sZ0[0], 0, $sAncho-($sZ0[0]+$sZ2[0]), $sZ1[1], BitOR(0x0100,0x00020000,0x04000000), 0x00100000)
	GUICtrlCreatePic($sDIR & "\2.bmp", $sAncho-$sZ2[0], 0, $sZ2[0], $sZ2[1], BitOR(0x0100,0x00020000,0x04000000), 0x00100000);, BitOR(0x00000200,0x00020000))
	GUICtrlCreatePic($sDIR & "\3.bmp", 0, $sZ0[1], $sZ3[0], $sAlto-$sZ0[1]-$sZ3[1], -1, 0x00100000)
	GUICtrlCreatePic($sDIR & "\4.bmp", $sAncho-$sZ4[0], $sZ2[1], $sZ4[0], $sAlto-$sZ2[1]-$sZ4[1], -1, 0x00100000)
	GUICtrlCreatePic($sDIR & "\5.bmp", 0, $sAlto-$sZ5[1], $sZ5[0], $sZ5[1], -1, 0x00100000)
	GUICtrlCreatePic($sDIR & "\6.bmp", $sZ5[0], $sAlto-$sZ6[1], $sAncho-($sZ5[0]+$sZ7[0]), $sZ6[1], -1, 0x00100000)
	GUICtrlCreatePic($sDIR & "\7.bmp", $sAncho-$sZ7[0], $sAlto-$sZ7[1], $sZ7[0], $sZ7[1], -1, 0x00100000)
	GUICtrlCreateLabel($sTitulo, $sZ0[0]+2, 0, $sAncho-($sZ0[0]+$sZ2[0]), $sZ0[1], 0x0200)
	GUICtrlSendMsg(-1, 48, _CreateFont(14, 400, 256, "Trebuchet MS"), 1)
	GUICtrlSetColor(-1, $cTitle)
	GUICtrlSetBkColor(-1, -2)
	Return $gGuiZ
EndFunc

Func _CheckFiles()
	If Not FileExists($sDIR) Then
		MsgBox(16, "Error", "No se ah encontrado la carpeta " & $sDIR & " de skins.   " & @CRLF & "No se puede continuar." )
		Exit
	EndIf
	For $i = 0 To 7
		If Not FileExists($sDIR & "\" & $i & ".bmp") Then
			MsgBox(16, "Error", "Falta un archivo para la creacion del GUI, " & $i & ".bmp   " & @CRLF & "No se puede continuar." )
			Exit
		EndIf
	Next
	For $i = 1 To 3
		If Not FileExists($sDIR & "\" & "clo" & $i & ".bmp") Then
			MsgBox(16, "Error", "Falta un archivo para la creacion del GUI, " & "clo" & $i & ".bmp   " & @CRLF & "No se puede continuar." )
			Exit
		EndIf
	Next
	For $i = 1 To 3
		If Not FileExists($sDIR & "\" & "min" & $i & ".bmp") Then
			MsgBox(16, "Error", "Falta un archivo para la creacion del GUI, " & "min" & $i & ".bmp   " & @CRLF & "No se puede continuar." )
			Exit
		EndIf
	Next
	Return -1
EndFunc

Func _GetSize($sFile)
	Local $hImg, $aRX, $aRY
	$hImg = DllCall($GDIDll, "int", "GdipLoadImageFromFile", "wstr", $sFile, "int*", 0)
	$aRX = DllCall($GDIDll, "int", "GdipGetImageWidth", "hwnd", $hImg[2], "int*", -1)
	$aRY = DllCall($GDIDll, "int", "GdipGetImageHeight", "hwnd", $hImg[2], "int*", 0)
	Dim $sSize[2] = [Number($aRX[2]),Number($aRY[2])]
	DllCall($GDIDll, "int", "GdipDisposeImage", "hwnd", $hImg[2])
	Return $sSize
EndFunc

Func _GDILoad()
	$dInt = DllStructCreate("int Version;ptr Callback;int NoThread;int NoCodecs")
	$dMK = DllStructCreate("int Data")
	DllStructSetData($dInt, "Version", 1)
	$aResult = DllCall($GDIDll, "int", "GdiplusStartup", "ptr", DllStructGetPtr($dMK), "ptr", DllStructGetPtr($dInt), "ptr", 0)
	Return 0
EndFunc

Func _GDIUnLoad()
	DllCall($GDIDll, "none", "GdiplusShutdown", "ptr", "int Version;ptr Callback;int NoThread;int NoCodecs")
	DllClose($GDIDll)
EndFunc

Func _CreateFont($iSize = 8.5, $iWeight = 400, $iAttribute = 0, $sFontName = "", $hWnd = 0, $iDegrees = 0)
	Local $iItalic = BitAND($iAttribute, 2)
	Local $iUnderline = BitAND($iAttribute, 4)
	Local $iStrikeout = BitAND($iAttribute, 8)
	Local $iQuality
	If BitAND($iAttribute, 16) Then
		$iQuality = 1
	ElseIf BitAND($iAttribute, 32) Then
		$iQuality = 2
	ElseIf BitAND($iAttribute, 64) Then
		$iQuality = 3
	ElseIf BitAND($iAttribute, 32) Then
		$iQuality = 4
	ElseIf BitAND($iAttribute, 256) Then
		$iQuality = 5
	ElseIf BitAND($iAttribute, 512) Then
		$iQuality = 6
	EndIf
	Local $aCall = DllCall($hUSER32, "hwnd", "GetDC", "hwnd", $hWnd)
	If @error Or Not $aCall[0] Then
		Return SetError(1, 0, 0)
	EndIf
	Local $hDC = $aCall[0]
	$aCall = DllCall($hGDI32, "int", "GetDeviceCaps", "hwnd", $hDC, "int", 90)
	If @error Or Not $aCall[0] Then
		Return SetError(2, 0, 0)
	EndIf
	Local $iDCaps = $aCall[0]
	DllCall($hUSER32, "int", "ReleaseDC", "hwnd", $hWnd, "hwnd", $hDC)
	$aCall = DllCall($hGDI32, "hwnd", "CreateFontW", "int", -$iSize * $iDCaps / 72, "int", 0, "int", 10 * $iDegrees, "int", 0, _
			"int", $iWeight, "dword", $iItalic, "dword", $iUnderline, "dword", $iStrikeout, "dword", 0, "dword", 0, "dword", 0, _
			"dword", $iQuality, "dword", 0, "wstr", $sFontName)
	If @error Or Not $aCall[0] Then
		Return SetError(3, 0, 0)
	EndIf
	Local $hFont = $aCall[0]
	Return SetError(0, 0, $hFont)
EndFunc

Func _Round($Gui, $X, $Y, $D = 0, $S = 0)
	Local $Pos, $Ret, $Ret2
	$Pos = WinGetPos($Gui)
	$Ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $D, "long", $S, "long", $Pos[2], "long", $Pos[3], "long", $X, "long", $Y)
	If $Ret[0]Then
		$Ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $Gui, "long", $Ret[0], "int", 1)
	EndIf
EndFunc

Func _GuiGn7Animate($gWHnd, $gRTo = 0, $gVel = 1000)
	Local $gST = StringSplit('80000,90000,40010,50010,40001,50002,40002,50001,40004,50008,40008,50004,40005,5000a,40006,50009,40009,50006,4000a,50005', ",")
	Local $ret = DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $gWHnd, "int", $gVel, "long", "0x000" & $gST[$gRTo])
EndFunc

Func _ObjIeEnh($oIE)
	With $oIE.document
		.body.topmargin = 0
		.body.leftmargin = 0
		.body.scroll = "no"
		.body.style.borderWidth = 0
	EndWith
	Local $oHd = $oIE.document.all.tags("HEAD" ).Item(0)
	Local $oSt = $oIE.document.createElement("script")
	With $oSt
		.defer = True
		.language = "jscript"
		.type = "text/javascript"
		.htmlFor = "document"
		.event = "onmousedown"
		.text = "return false;"
	EndWith
	With $oSt
		.defer = True
		.language = "jscript"
		.type = "text/javascript"
		.htmlFor = "document"
		.event = "oncontextmenu"
		.text = "return false;"
	EndWith
	$oHd.appendChild($oSt)
EndFunc

Func _SetInfoData($nCase)
	Switch $nCase
		Case 0
			_SetInfo("PortableApps.com version Portable", "La version portable de portables...", "Es una colección de aplicaciones portáble que incluye navegador web, cliente de correo, suite ofimática, " & _
			"cliente de mensajería instantánea, antivirus, administrador de contraseñas, lector de PDF, etc, etc. " & _
			"Con este soft usted tendra a PortableApps mas portable que nunca. " & _
			'</br>Basado en PortableApps.com, soft creado por <font color="#FF0000"><b>BasicOs+Gn7</b></font>', @TempDir & "\Resources\portableapps_usb.png")
		Case 1
			_SetInfo("7-Zip Portable", "El archivador de ficheros portátil", "7-Zip Portable es el popular 7-Zip empaquetado como una aplicación portátil, " & _
			"así que usted puede llevar su archivador de ficheros con usted y trabajar con la compresion 7z, ZIP, GZIP, BZIP2, TAR, RAR y&nbsp; " & _
			"más archivos sobre la marcha. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o un CD y tilizarlo en cualquier ordenador," & _
			"sin dejar ninguna información personal.", @TempDir & "\Resources\7-zip.png")
		Case 2
			_SetInfo("AbiWord Portable", "Procesador de textos hecho portátil", "AbiWord Portable es el procesador de textos ligero empaquetado como una " & _
			"aplicación portátil, así que usted puede editar sus documentos sobre la marcha. Usted puede colocar en su disco flash USB, iPod, disco duro portátil " & _
			"o un CD y utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\abiword.png")
		Case 3
			_SetInfo("BonkEnc Portable", "Extrae, convierte y codifica en cualquier lugar", "BonkEnc Portable es la BonkEnc popular empaquetado como una aplicación portátil, " & _
			"por lo que extraer, convertir y codificar sus archivos de audio en cualquier lugar que vaya. Usted  puede colocar en su disco flash USB, iPod, disco duro " & _
			"portátil o un CD y utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\bonkenc.png")
		Case 4
			_SetInfo("ClamWin Portable", "El antivirus para llevar", "ClamWin Portable es el popular antivirus ClamWin empaquetado como una aplicación portátil, así que usted puede tomar su antivirus " & _
			"con usted para analizar los archivos sobre la marcha. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o un CD y utilizarlo en " & _
			"cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\clamwin.png")
		Case 5
			_SetInfo("CoolPlayer Portable", "Reproductor de audio ligero", "CoolPlayer Portable es un fácil utilizar el reproductor de audio empaquetado como una aplicación portátil para que puedas " & _
			"escuchar tu música dondequiera que vayas. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o un CD y utilizarlo en cualquier " & _
			"ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\coolplayerp.png")
		Case 6
			_SetInfo("FileZilla Portable", "Un FTP en tu bolsillo", "FileZilla Portable es el popular cliente de FTP FileZilla empaquetado como una aplicación portátil, así que usted puede tomar su lista de " & _
			"servidores y configuraciones con usted. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o en un CD y utilizarlo en " & _
			"cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\filezilla.png")
		Case 7
			_SetInfo("Firefox Portable Edition", "Tu navegador™ en tu bolsillo", "Mozilla Firefox ®, Portable Edition es el popular navegador web Mozilla Firefox empaquetado con un lanzador PortableApps.com" & _
			"como una aplicación portátil, para que pueda tomar sus marcadores, extensiones y contraseñas guardadas con usted.", @TempDir & "\Resources\firefox.png")
		Case 8
			_SetInfo("Google Chrome Portable", "Navegar con velocidad, sencillez y estilo", "Google Chrome Portable es un navegador web que ejecuta las páginas web y aplicaciones con la velocidad del rayo. " & _
			"Está diseñado para ser simple y con estilo. Se envasa como una aplicación portátil, así que usted puede llevar su experiencia de navegación con usted.", @TempDir & "\Resources\googlechrome.png")
		Case 9
			_SetInfo("InfraRecorder Portable", "Graba CD/DVD en el camino", "InfraRecorder Portable es el CD de populares InfraRecorder / programa de grabación de DVD empaquetado como una aplicación portátil, así " & _
			"que usted puede hacer su quema de discos en el camino. Tiene todas las mismas características de InfraRecorder incluida la creación de datos personalizados, " & _
			"audio y proyectos de modo mixto y grabarlos en discos físicos, así como imágenes de disco.", @TempDir & "\Resources\infrarecorder.png")
		Case 10
			_SetInfo("KeePass Password Portable", "Sus contraseñas, para ir aseguró", "KeePass Portable es el popular KeePass Password Safe empaquetado como una aplicación portátil, por lo que puede llevar de forma segura su " & _
			"correo electrónico, Internet y otras contraseñas con usted. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o un CD y " & _
			"utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\keepass.png")
		Case 11
			_SetInfo("Lightscreen Portable", "Herramienta para capturas de pantalla", "Lightscreen Portable es una aplicación fácil de usar de pantalla empaquetado como una aplicación portátil para que pueda tomar fotos de la " & _
			"corriente en el uso de escritorio dondequiera que vayas. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o un CD y " & _
			"utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\lightscreen.png")
		Case 12
			_SetInfo("Mines-Perfect Portable", "Encuentra minas en el camino", "Mines-Perfect Portable es el clon del entretenido Buscaminas empaquetado como una aplicación portátil, así que usted " & _
			"puede hacer su caza de minas en el camino. Tiene todas las mismas características de minas " & _
			"portátiles, incluidos los diseños de tarjetas adicionales (hexágono, triángulo, 3d).", @TempDir & "\Resources\mines-perfect.png")
		Case 13
			_SetInfo("OpenOffice.org Portable", "La suite de oficina completa, que es totalmente portáble", "OpenOffice.org Portable es una suite ofimática completa - incluyendo un procesador de textos, hoja de cálculo, herramienta de presentación, " & _
			"dibujo y base de datos de paquete - empaquetado como una aplicación portátil, así que usted puede tener todos sus documentos y todo lo " & _
			"necesario para trabajar con ellos dondequiera que valla.", @TempDir & "\Resources\openoffice.png")
		Case 14
			_SetInfo("Pidgin Portable", "Mensajería instantánea portátil y segura", "Pidgin Portable es el cliente de mensajería instantanea versátil, empaquetado como una aplicación portátil, así que usted puede tomar " & _
			"la configuración de la mensajería instantánea y listas de contactos con usted. Tiene todas las mismas características qwe Pidgin, incluyendo " & _
			"soporte para AOL, Yahoo, MSN, ICQ y redes Jabber", @TempDir & "\Resources\pidgin.png")
		Case 15
			_SetInfo("PNotes Portable", "Notas adhesivas para llevar", "PNotes Portable es un fácil gestor de notas adhesivas, con opciones de despliegue y un planificador incorporado " & _
			"pueda tomar sus números, citas, las listas de todo y más con usted. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o " & _
			"un CD y utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\pnotes.png")
		Case 16
			_SetInfo("SeaMonkey, Portable Edition", "Su completa suite de Internet portáble", "SeaMonkey® Portable Edition, es la suite SeaMonkey populare de Internet (navegador, correo electrónico, grupos de noticias, chat) " & _
			"incluido con un lanzador PortableApps.com como una aplicación portátil, así que usted puede" & _
			"tomar toda su experiencia en Internet con usted.", @TempDir & "\Resources\seamonkey.png")
		Case 17
			_SetInfo("Sudoku Portable", "Divertido Puzzle portable", "Sudoku Portable es el juego de Sudoku entretenido y adictivo rompecabezas empaquetado como una aplicación portátil, así que puedes " & _
			"jugar en cualquier lugar. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o" & _
			"un CD y utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\sudoku.png")
		Case 18
			_SetInfo("Sumatra PDF Portable", "Visor de PDF portáble", "Sumatra PDF Portable es el ligero Sumatra PDF empaquetado como una aplicación portátil, así que usted puede ver los archivos PDF sobre " & _
			"la marcha. Usted puede colocar en su disco flash USB, iPod, disco duro portátil o un CD y" & _
			"utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\sumatrapdf.png")
		Case 19
			_SetInfo("Mozilla Sunbird, Portable Edition", "Su calendario en el bolsillo, sin un PDA", "Mozilla Sunbird ™, Portable Edition es el calendario práctico Mozilla Sunbird liado con un " & _
			"lanzador PortableApps.com como una aplicación portátil, así que usted puede llevar a su " & _
			"calendario y lista de tareas con usted.", @TempDir & "\Resources\sunbird.png")
		Case 20
			_SetInfo("Mozilla Thunderbird, Portable Edition", "E-mail real, en el camino", "Mozilla Thunderbird ®, Portable Edition es el popular cliente de correo Mozilla Thunderbird liado con un lanzador PortableApps.com como una " & _
			"aplicación portátil, por lo que puede llevar a su correo electrónico, libreta de direcciones y la configuración de la cuenta con usted. También " & _
			"puede agregar en GPG y Enigmail para cifrar y firmar su correo electrónico.", @TempDir & "\Resources\thunderbird.png")
		Case 21
			_SetInfo("Virtual Magnifying Glass Portable", "Lleve su vida portáble en foco", "Virtual Magnifying Glass Portable es la utilidad práctica Virtual Magnifying Glass envasado en " & _
			"PortableApps.com Formato de modo que pueda usar un amplificador de pantalla en cualquier PC que " & _
			"utilice.", @TempDir & "\Resources\virtual_magnifying_glass.png")
		Case 22
			_SetInfo("VLC Media Player Portable", "Reproducir sus medios en cualquier lugar", "VLC Media Player Portable es el popular VLC Media Player empaquetado como una aplicación portátil, así que usted puede tener sus archivos " & _
			"de audio y vídeo, junto con todo lo necesario para reproducir. Usted puede colocar en su disco flash USB, iPod, disco duro " & _
			"portátil o un CD y utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\vlc.png")
		Case 23
			_SetInfo("WinDirStat Portable", "Que hay en el disco?", "WinDirStat Portable es un analizador de uso del disco y la herramienta de limpieza de " & _
			"empaquetado como una aplicación portátil, así que usted puede ver exactamente lo que está en " & _
			"el dispositivo o disco duro de un ordenador anfitrión y fácilmente liberar espacio.", @TempDir & "\Resources\windirstat.png")
		Case 24
			_SetInfo("Xenon File Manager Portátil", "El explorador de archivos portáble", "Xenon File Manager Portable es un gestor de archivos empaquetados como una aplicación " & _
			"portáble para que pueda abrir archivos fácilmente dondequiera que vayas. Usted puede colocar en su disco flash USB, iPod, disco duro " & _
			"portátil o un CD y utilizarlo en cualquier ordenador, sin dejar ninguna información personal.", @TempDir & "\Resources\xenon.png")
	EndSwitch
EndFunc

Func _SetInfo($sTitulo, $sSubtitulo, $sTexto, $pImg)
	$aInfo = '<html>' & @CRLF
	$aInfo &= '<head>' & @CRLF
	$aInfo &= '<meta http-equiv="Content-Language" content="es">' & @CRLF
	$aInfo &= '<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">' & @CRLF
	$aInfo &= '<title>Gn7_Info!</title>' & @CRLF
	$aInfo &= '</head>' & @CRLF
	$aInfo &= '<body>' & @CRLF
	$aInfo &= '<table border="0" width="390" height="271" background="' & @TempDir & '\Resources\background.png">' & @CRLF
	$aInfo &= '	<tr>' & @CRLF
	$aInfo &= '		<td valign="top">' & @CRLF
	$aInfo &= '		<p align="center"><font face="Comic Sans MS"><b>' & @CRLF
	$aInfo &= '		<font size="1">' & @CRLF
	$aInfo &= '		<img border="0" src="' & $pImg & '" width="128" height="128" align="left"></font><font size="5"><font color="#FF0000">' & $sTitulo & '</font> </font><br>' & @CRLF
	$aInfo &= '		</b></font><span style="letter-spacing: -1px">' & @CRLF
	$aInfo &= '		<font color="#333399" face="Arial">' & $sSubtitulo & @CRLF
	$aInfo &= '		<br><br>' & @CRLF
	$aInfo &= '		</font></span><font size="5">' & @CRLF
	$aInfo &= '		<br>' & @CRLF
	$aInfo &= '		</font>' & @CRLF
	$aInfo &= '		<font color="#666699"><i>' & $sTexto & '</i></font></td>' & @CRLF
	$aInfo &= '	</tr>' & @CRLF
	$aInfo &= '</table>' & @CRLF
	$aInfo &= '</body>' & @CRLF
	$aInfo &= '</html>'
	$oIE.document.Write($aInfo)
	_ObjIeEnh($oIE)
	$oIE.document.close()
	$oIE.document
EndFunc