Standard Jet DBnb` Ugr@?~1y0̝cßFN]7O(`2{6|߱RCF 3y[|*| s*[f_Љ$g'DeFx -bT4.0  dv@p Y S  Y   Y Y  Y Y  Y  Y  Y   Y  Y  Y  Y   Y 2Y  Y   Y   Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortType    YYIdParentIdName        OY[S  Y Y Y  Y 2ACMFInheritableObjectIdSID YObjectId YS  Y  Y  Y Y  Y `[ Y NY  Y  ,AttributeExpressionFlagLvExtra Name1 Name2ObjectId Order, N, N ,NY"ObjectIdAttribute   -YS  Y Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationship v1b N  : k &  @  @ @@ Si`OJmdkiQOSi`Q[Q`f^dkSi`QmWQibQmSi`YbmQibQmSi`Ybmid`O^iQOOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkkmdiJUQ`kvkJMQk`kvkbJ`Q`Jf`kvkbJqfJbQUidofMJmQUdiYQk`kvkbJqfJbQUidofk`kvkbJqfJbQUidofmddL[QMmk`kvkbJqfJbQdL[QMmYOk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO`kvkbJqfJbQUidofMJmQUdiYQk`kvkbJqfJbQUidofk`kvkbJqfJbQUidofk`kvkbJqfJbQUidofmddL[QMmk  @ @ @ @          1@DINv1  @ @ @ @ @ @ @ @ @ @ @QQQQQQQQQ Q Q Q QQQQQQQQQQQQQ$Q% Q& Q' Q( Q) Q* Q+ Q, Q- Q. Q/ Q0 Q1 Q2 Q3 Q4Q5Q6Q7TTTTTTQIQJQKQ;Q<QLQMQNQOTTQ8Q9Q:1T1T 1T @Q=@Q>@Q?DQ@DQADQBIQCIQDIQENQFNQGNQHQQQQ QQ QQQQ!Q"Q#v1 v1@  `kvkbJqfJbQUidofMJmQUdiYQk`kvkbJqfJbQUidofkU`kvkbJqfJbQUidofk`kvkbJqfJbQUidofmddL[QMmkU `kvkbJqfJbQUidofkU`kvkbJqfJbQUidofmddL[QMmkU `kvkbJqfJbQUidofMJmQUdiYQkU`kvkbJqfJbQUidofkU]d _ Z g  ~  [ >>>1.@z5.@ MSysNameMap!4MR2KeepLocal  Txxx88888886 @ @Y @MSysNavPaneGroupsMSysNavPaneGroupToObjects!4MR2KeepLocal  Tvvvvvvvt @7Ũ @ @MSysNavPaneGroupCategoriesMSysNavPaneGroups!4MR2KeepLocal  Txxxxxxxv @Na5ѩ @a5ѩ @ MSysNavPaneObjectIDs!4MR2KeepLocal  TJJJJJJJH @Ih @NA7@ MSysNavPaneGroupToObjects!4MR2KeepLocal  TTTTTTTTR @D @NA7@ MSysNavPaneGroups!4MR2KeepLocal  TDDDDDDDB @@7@ @OA7@ MSysNavPaneGroupCategories!4MR2KeepLocal  TVVVVVVVT @q @>eq @ MSysAccessStorage!DDDDDDDDDDB )7@)7@mdlRed!..........,   H/ @ H/ @frmIntro!~@S>>>22222220 @ r 3@r 3@frmInternet!~@SDDD88888886 @ ;t4@;t4@frmEthernet!~@SDDD88888886 @ a,@a,@frmEjemplos!@vSDDD88888886 @ 37@37@frmDatosRed!~@SDDD88888886 @ sq @sq @UserDefined!A@SDDD88888886 @ sq @sq @SummaryInfo!@SDDD88888886 @ Mx/ @Mx/ @AccessLayout!4MR2KeepLocal T.@Rzz:::::::8 @sq @sq @SysRel!.........., sq @sq @Scripts!0000000000. sq @sq @Reports!0000000000. sq @sq @Modules!0000000000. sq @sq @Forms!,,,,,,,,,,* sq @sq @DataAccessPages!@@@@@@@@@@> gp @gp @MSysRelationships#DDDDDDDDDDB gp @gp @MSysQueries#88888888886 gp @gp @MSysACEs#22222222220 gp @gp @MSysObjects#88888888886 gp @y.@MSysDb!R@}S:::......., @gp @gp @Relationships#<<<<<<<<<<: gp @gp @Databases#44444444442 gp @gp @Tables#.........., V Y@NJJY Y Y N  Y  , Y ,Y NY N DateCreateDateUpdateIdLvNameParentIdType, N, N=N ,, N, N>N ,, N, N?N ,YYYIdParentIdIdParentIdNamev1b@ ,`<a<5@c$ o q ( I  A N[(StZE[(k"}N67@N67@MPropDataCopy62. wN67@N67@L 0CB0PropDataIEA1 )7@6)7@8DirDataCopy62. w)7@6)7@7mdlRedDirDataPLH8 )7@6)7@4 PropData3GC?/ )7@6)7@30  w7@N67@ PropDataGC?/ 37@N67@BlobDelta0,( w37@N67@C@TypeInfo:62" 37@N67@W"%Blob2.*" 37@N67@4  w;t4@v5@W PropDataSGC?/ ;t4@+5@VBlobDeltaS0,( w;t4@+5@U@TypeInfoS:62" ;t4@v5@T? BlobS2.*" ;t4@v5@S3  wʎfz4@ʎfz4@Ah@DirDataCopyB>:" ʎfz4@ʎfz4@@0 2CB0 1CB0 0CB0 3CB0PropDataCopyrnjR 3@5c6@ PropDataGC?/ (?3@5c6@BlobDelta0,( wr 3@5c6@@TypeInfo:62" r 3@5c6@I,Blob2.*" r 3@5c6@2  wa,@5S.@1PropData-PLH8 a,@5S.@0BlobDelta-0,( wa,@5S.@/@sTypeInfo-:62" a,@5S.@.XcEBlob-2.*" a,@5S.@-1  w @ @ImExSpecs0,( w-I/ @G7@; 3CB0 0CB0 1CB0 2CB0 4CB0PropDatauqm] H/ @3@PropDataPLH8 H/ @7@@DirData:62"  H/ @K)2@BlobDelta0,( w H/ @K)2@D@TypeInfo:62"  H/ @K)2@"Blob2.*"  H/ @3@0  w b @F p.@VBA$  w b @F p.@VBAProject2.* wsq @sq @MSysDbDirData PLH8 sq @sq @CustomGroups62. wsq @sq @ Blob &" wsq @sq @ 0   wsq @sq @ Databases0,( wsq @sq @ DataAccessPages<84 wsq @sq @ Cmdbars,($ wsq @F p.@VBA$  wsq @sq @Scripts,($ wsq @N67@Modules,($ wsq @sq @Reports,($ wsq @G7@Forms($  wsq @b @ijPropDataPLH8 >eq @>eq @MSysAccessStorage_SCRATCHPLH w>eq @b @MSysAccessStorage_ROOTJFB wLVALu08=5B>b* c]e gjk ?l H/ @x 3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[fehL@@L@BL@DL@FL`@HL@JL@LLan@NL@PL.mdbR `TNo`VX``Z`\`^``b`d`f`h`j`l`n`pDA`rIj`t`v`x`z`|`~``````b`d```|  % % %`f``````b`d`f```|``` ``````nten`/tem`888.`1" /`pe="`://c`nt.o`mpla .png ($`b> `d `> `m o:`ftle=` o:p`:url`ates`supp`tp02(`bn"> `d%+ )@$% B0iDP0oIiFp iH+L iN<+PP0 iN7+R@ iTiV+Xh` iN Z`7H+\( i^i`(pIibid, h`j | `~``7 H  ` X  `,l(i % `a,hi ~ I% a)puI4%ivI HxwI(% h8wI0% ,%``` 8%`,P.i $%  %`N`wI``8%LVAL߲    0 @ P ` p      ( 8HX hx (08@HPX`hpx (08@HPX`hpx && (H4p $(&$@,h &, &4 ,P *&  (08@HPX`hpx   (08@HPX`hpx H H  H  H  H  H  ( ( H 0 H 8 H @ H H P X H p "x           4 ( 0 "8 @ "X     "   "   "    ( @ X x  4   "  " ( 6H       B   8 H` $p$ 2  ( $8` x   B  8 "H$p      "   (HPX `px 4 2   ( 40hx$ @ <@LVAL)  <@HPp < 8 <(h  <  &8`x 8  8P2`   ,   ( @0 p B0,@*p@@. ,P,.*@HP N*B8 V&L^P::$0&X>&& b Vx(. VH > J 0!8!@! LH! 6!2!."8" H"]p]d]0]HbY]`]x-']d]]lc] 2 0lc]&]e]@ =] 8i]P] h] ] ]]@]]]@](@^X^ppX^^^^p(^^0^H^`^x^^^^^^^ ^8^P^h^^^^^px^^(^@^X^p^^^^^^^0^H^`px^^^^^^^ ^8^Pph^^^^^^^^(^@^X^p^^^ mpp^^ # caller's window handle^ # printer DC/IC or NULL^8 # ptr. to a LOGFONT struct^P #& 10 * size in points of selected font^h # enum. type flags^ # returned text color^ # data passed to hook fn.^ # ptr. to hook function^ % custom template name^ # instance handle of.EXE that' contains cust. dlg. template^ % return the style field here' must be LF_FACESIZE or bigger^ && same value reported to the EnumFonts'& call back with the extra FONTTYPE_' bits added^( ^@ # minimum pt size allowed &^X # max pt size allowed if' CF_LIMITSIZE is usedpp ^ ^ ^ ^ ^ ^ ^ ^0 ^H ^` ^x ^ ^ ^ ^ ^ ^ ^ ^8 p8P ^h ^ ^ ^ ^d p ^ B ^ ^8 ^P ^h ^ ^ ^ ^ ^ ^ ^^(^@^X^p^^^^ D^^^ ^8^P^hpP P]0SHGetDiskFreeSpaceh(]h l'j j !nKT j !p(rKT j !p(tndCancel la operacin x z AtencinA@vko KPD-Team 2000URL: http://www.allapi.net/E-Mail: KPDTeamLVAL:u07=5B>b* ce giXjk  l(?3@x &nDT0y . U  @Calibri 8hhhh h tS odXXCarta (8.5 x 11 pulg.)PRIV''''D\KhC{SMTJXerox WorkCentre 3615 PSLeadingEdgePageSizeLetterPageRegionDuplexNoneResolution600x600dpiD1NRX ցm MSCFP,90R//Uncompressed-Data//yVCKYklU>3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh !%J\&Km'L(Mm7UF{`6abc,;k  txtURL 6"http://www.mvp-access.com"x y݅1EŜ+.J/K0L1Md5U`6abc,; Etiqueta5 Conectado?:x 8yG}&ýJKLrMLVAL!:u07=5B>b* cRe giXjjk  l;t4@x ~[XL!y . U  @Calibri 8hhhh h tS odXXCarta (8.5 x 11 pulg.)PRIV''''D\KhC{SMTJXerox WorkCentre 3615 PSLeadingEdgePageSizeLetterPageRegionDuplexNoneResolution600x600dpiD1NRX ցm MSCFP,90R//Uncompressed-Data//yVCKYklU>3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh !%J &K'L}(Mm7UF{`6zabc,;k txtUsuariox bIY+.Jz/K0L1M(d5U7`6abc,; Etiqueta5 Usuario:x 'QӨN a$JKLLVALrM,LVAL&:u07=5B>b* cRe giXjkk l37@x O3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feheh1U`6a bkc,@ Comando0 Datos Red~ "[Event Procedure]c = Buscar registrox ~333ɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝɝ:" ,O@b,O@ÎlOOKOJJTBMZXZRDEVTMMBGNUBWMQWIb^Z" ,O@b,O@ AcessVBADataNJF. mN@b,O@@ o__SRP_1840" mN@b,O@[&nO__SRP_0840" mN@mN@G@5__SRP_5840" mN@mN@V9__SRP_4840" mN@mN@<4IHAGUMFVVIZAGEMSCIZWMIPSVCTJb^Z" mN@mN@g@__SRP_3840" mN@mN@@ 5__SRP_2840" mN@mN@@3BXOWJMHDSGPCVDRDPUYLFKSGWAONb^Z" mN@mN@@__SRP_b840" mN@mN@~@1__SRP_a840" mN@mN@}</JOLWCFINHKXJVDGOLTKAIPFXTKADb^Z" mN@mN@|E@,__SRP_9840" mN@mN@{@,__SRP_8840" mN@mN@z-QSKQXQLYJPWWPDKPRLSCCYMGHETIb^Z" mN@mN@y@ 5__SRP_7840" mN@mN@x@,__SRP_6840" mN@mN@wL*FHYSCTCUVEXCXDNYQHPDCNLQKYQEb^Z" mN@b,O@veO__SRP_d840" mN@b,O@uaO__SRP_c840" LVAL*@allapi.net]C:\ ~  A@\  "Espacio Libre de la Unidad 'C:\' : ~'###,###,###,##0$   Espacio Total: '###,###,###,##0$   Espacio Disponible: '###,###,###,##0$  A@vo8 A@oHA@o] '  |$'$ !p($$ !p( !p! !(dhCancel la operacin x z AtencinA@vk(o  KPD-Team 1998URL: http://www.allapi.net/E-Mail: KPDTeam@Allapi.net/Redim the variables to store the cutstom colors Z8]@  Z Z +Z oX]]]set the structure size  (b Set the owner ! (dset the application's instance ! (f0 App.hInstance,set the custom colors (converted to Unicode) Z $ (no extra flags (|< Show the 'Select Color'-dialog $ !'l ! $'ZdX'lk@[ li((]Set the structure size  (b Set the owner window ! (dSet the application instance ! (f2 App.hInstance@no extra flags (|Show the pagesetup dialog $'d'Iki-> Code by Donald Grover]0]P]p]]]. Use PrintDialog to get the handle to a memory, block with a DevMode and DevName structures  (b ! (d  (|I .Set the current orientation and duplex setting ! (  ( L J ( ! (5 Printer.Width? ! ( ! (  ! ( 9Allocate memory for the initialization hDevMode structure5and copy the settings gathered above into this memory F H $R ( !$L'    A@B !$P'lk 5Set the current driver, device, and port name stringsk 95 ! 9IHI5 ! 99q`  5$5$5$ (q 2Allocate memory for the initial hDevName structure5and copy the settings gathered above into this memoryHI F H $R ( !$L'  I   A@B $P'Ik 6Call the print dialog up and let the user make changes $:  First get the DevName structure. !$L'  -A@B $P' !A@X2Next get the DevMode structure and set the printerproperties appropriately !$L'<   A@B !$P'# !A@X ! !$  $$ ' !    !$   .&set printer toolbar name at this pointTIkk:Set printer object properties according to selections madeby user ! ( ! ( ! ( !  ( ! ( ! ( ! (ko]p] ( determine default height ( determine default width (- angle between baseline and escapement vector (. angle between baseline and orientation vector " (  normal weight i.e. not bold $ (' use default character setLVAL+ & (/ default precision mapping ( (1 default clipping precision * (' default quality setting , . (8( default pitch, proportional with serifsTimes New Roman  (7 string must be null-terminatedH Create the memory block which will act as the LOGFONT structure buffer. F H $R'N N$L' lock and get pointer   A@B.% copy structure's contents into blockO Initialize dialog box: Screen and printer fonts, point size between 10 and 72.  (b size of structure ! (d5Form1.hwnd ' window Form1 is opening this dialog box`I ! (GPrinter.hDC ' device context of default printer (using VB's mechanism)  (' pointer to LOGFONT memory block bufferx (' 12 point font (in units of 1/10 point)* 4 6 8 : < (|I$@ (! black > (%, regular font type i.e. not bold or anythingI ( minimum point sizeH ( maximum point size[ Now, call the function. If successful, copy the LOGFONT structure back into the structureO and then print out the attributes we mentioned earlier that the user selected. $' open the dialog box  success   A@B2 copy memory backO Now make the fixed-length string holding the font name into a "normal" string. ! !  $| ! '[Fuente:  Tamao: ! K end the lined'kE Deallocate the memory block we created earlier. Note that this must/ be done whether the function succeeded or not. N$P'! destroy pointer, unlock block N$X' free the allocated memoryi;Attribute VB_Name = "Form_frmEjemplos"  Bas0{DC5202EE-D348-4255-BFB3-9C31007F363B} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_TateDerivCust0omizD$Const FW_N ORMAL?400  DEFAULT_CHAR(SET1 OUT_PRECISCLIPQUALITYC)ITCH FF_ROMAN 16BCF_PRINTERFON"T &H2SCpREEN/B4OT( Or @I)EFF,EC&FORCEEXIS9J&H@S@INITTOLOGB$TRUC 40 LIMITSIZ&E:300GRE@GULAR_T YPClLF_F(ACE3BCHDEVICENA.M J.MGMEM_MOVEABLZERO3(4GM_DUPLEX?F6DM_ORIENTATIOqGPDr@UPDIS!BeTOFI$8FP Type PTAPI x As LongyEnd, @YTcLeDftTop RighlBotl OPR. lStructSize hwndOwnerIw an*lpst`rFilt iBnMax''nIndel*% Tit q'InitiaxlDi!)r f0lags'eOffse7Int0eger1bExtension Def aJ'D@ fnHookŶb TFPAGEcDLG_FRFDevMod= 2hAL$&pt`PaperET+mrtMi >rgib&khahWW(PageSetup q)fnPaintlp?r1h^?FCHOOSEC ]R/ G _5 psun~cq6AABc t n0wMiŋ"@.EXE that'`'P_s . dlg0 @{zSty'p3e$afield herx,`m0 be i-bigօn,8 bąq3psvalue repor(the EP&}so'3: back@:X&ra _bits addedwMISSING_0GNMHn80!)minimu`m pt b9Eow1@aVu ' max pt size allowed if ! CF_LIMITSIZE is used End Type Private PRINTDLG_TYPEglStructSAs LonghwndO wner De vModeNaHmes dc flag #nFromPag(Integer@nTo Min ax 0CopiNLVAL,0hI@nstancflCustData! ^lpfnntHook Set up Temp^lā]iZlph  hJDEVNAM$ESwD@erOffsetJI"w|iceUOutputfaulextrWB * 100,MODE,dmC%#SCCH@ ICE9dmSpecVersion7@B?JE E2LField̺dmOrientatPaper bLength#PWidScdalkdmb e6SourcclQQuality0Colo†DuplexYResolu"TTOpT jP ForBmqCFORM)CUn!PaddqBitsPerPlels.GdmHeigh_)DisyF.drequencB+cOyDeclare Func#CHOOSECOLOR Lib "comdlg32.dll" Alias "C hoose4A"h (pc6)=bnGetOpenFile_b-,bAf@nǁ OPENFI&Lwn ` Satve", b`Dialog-lgB`2 x PAGESETUP{o`DEuP]upx#!FONT_l%FontS%>fSub HyMemorykernel32fRtlMove3+hpvDes26Any, 7KByVapl cb-)W-lobalLock-(h/f9GUnl/ /g#ZAcO wE, dwBytSb  FreeDim Ao0f`s(r ` 'SH8pPkqSpachshel!(pszVem2pA, pqwCÀ3CurrQWToR%:1E s,mando1_Click(&nRWSfl@ 4= Show If d>= 0 ThenbSelect Case Me.Marco7]"1pðTЕo@0.BackC=$2 sa gglsp As0gBoxdѳl la oacin", vbXInfx+OKOnl :"At7@QÞIubl oa4w 'KPD-Tea0m 20!2URL: http:@//www.Papi.net/'E-Mail: @!!?! #?(:\, , %CMEs0io-`}de!Unidad 'C:\' :" + a0at$(00, "###,70")vbCr4Lf_ "a@ ??t?Q6!onible: = ߗ!4 42{ !3[u;MP)_$ 83r08("strF teT`(Str0=q s=aqb=л(nteTam) > 0 Then strFue = Sp0lit(D, "|") Me.Texto0.fontnameSbV(0 JFJSDizJVal(1)*Etiqueta1.-h@ ElsesgBox "Cancel la operacin", vbInformation +OKOnlyAten&nd If " SubPr@ivate  F!_Load(U 'KPD-Team 1998D 'URL: http://www.allap@i.net/E-Mail: @ARedim the variables toore cutstom @colorsReDCu C (o 16 * 4 - 1) @As Byt i Iyger9 ipLBound() To UC Ti)0N BiVFuncfS(howB.(B*LoLngA*cc*CHOOSECOLORBB(16PlReturnC'setS@uc@e scc.lStrLen(cc}SownM@ hwndOA=hWndapc's insfthIDA .AAccess@Y'.F cĆ (con@vertedUnicode1A9pAOE`C>Cg'no 9ra flagO ?`>dA:,'S@elect " '@-dialo;If :, gde by Donald Gr~oz#7bJFRINT`F_TYPEGDevM`!DEVMODEN| NAMEfSGlphT, "!0:WJf objB er2 rinter, Newd%0Ii`Ac' UseD BDaMgXhandl ro a memoryEblock.th%  V`LCb /5(3[@Q%,2COn Error Mqs?curr ori`3 duplex 0t.dmQice=er.G3!"hoD'Fields3DM_ORIENTATION Or DUPHLEXmPa`W id`WItemsa 'b "MOWX_P 1DccGown op}eT' ЦboinitP*izch 3c'copyCBs ga0r9{ab>V@th 0 Then RZ'First gDevName structure.Tlp= GlobalLock`.hs)3CopyM@emory , ByVal M, 450bRevn bUnld-AFreexlgAqNex qXModqsp erH'properties apriatelyN)Len(THy@ UJ 1Newer= UCase$ (Left!.d"m@$ice, InStrChr$(0)) - 1)/ŧer.?CFor Each objD*@ er 0G )@S=H OI'Ē toolbar nAa`is poEIf'%'@On Err#Resuw'!E! ect iZcc@ording selionsdeG 'by'd!. |Ac={I DCODuple>x.>DLVALCOOrientat@PauSizeJ}QuaplitykColorjp Bi!efaultSourc,9GoTo 0ǃ =Sub`/v` FuncB$ShowFont() As `r9Dim cfCHOOSEFONT, lfhLOG#hong, pbXf , retv; L c .lfHeight$0 ' determine  hkWidthWw+Esc@,mEle between Zblaev} ]o%N o T WFW_N ORMAL norm &wi.e. not bold Charaw@kEFAULT_CHARSETQvrac;t;OutPrecis4OUT_DPRECISݱd(PAmn&$!ClipCLIPW p@g x7 QUALITY) q9Tt PitchAnd`Famil< ITCH Or FF_ROMANZQ .`}o`}onfi@'ifTd5Fan%"Tim0c Roman" & vbNull@mube n-3/:' Cre; mb! whiAmwill  asB: buQ) q3k0^y@BQE, 7 Qc@ 's cG:s po  '|itA\Tbox: Sc`nnlHspqt &s?1072īcf.l0Qa cfof  hwndOwn0= Me.hWy '0m1. windowB B is n9! th 7dc$shDCadev c ':#  (usqVBmeismDpLogaQq~U% (% i&P12P12%s  (Pmunitpf 1/`"gflags CF_BOT9EFFECTS)!FORCRiEXISTD*TOT STRUCLIMITSIZEv 0rgbCyRG`B(0, !bPlacknTypREGULAR_oTYPEregulp tqY anyYng7M=$ 8' nim\umt%a7b2maxRNow, ca@qB"ft~. successful? 5!pocko6v'2n#Y % ouCat@tributNw e Quced earli'th3ed6Ā= (t61M]1 dD  GKsGG bb Q' CQfixed-leng_ې`hx3Tjʃ8IIIHKHGyG0GFFwF6ŢabS.@5S.@TypeInfoCopy-62. w5S.@5S.@BlobDeltaCopy-840 waS.@5S.@BlobCopy-.*& wg.@z5.@TypeInfoCopy-62. w.@.@BlobDeltaCopy-840 we.@.@BlobCopy-.*& w\p.@F p.@PROJECT,($ w[p.@F p.@PROJECTwm0,( wPo.@ڥo.@dir$  wZo.@ڥo.@_VBA_PROJECT62. w<o.@ڥo.@ARJMTSDBZLUDAEBMLERMNEYLHPPNVRN w7o.@ڥo.@MTILIWGWOILHRDVAABTALAOSGVHHVRN w6o.@ڥo.@MPPXARKZNXWKNDRZVWZQGETIKDZ_VRN w4o.@ڥo.@FHXGZW_NXVJUFEDNAEQLDAKIQZHCVRN w0o.@ڥo.@XIZXZUMSUAYVSDZCTMJW_DZNKZBDVRN w.l.@?l.@GZCCEPGQESQEGEHONWEPLGFOUOCNVRN w]k.@yk.@AcessVBAData62. w @8 @@oPROJECT840"  @8 @ @oPROJECTwm<84" ˝ @8 @@odir0,(" ˝ @8 @%:_VBA_PROJECTB>:"  @8 @45HBULCZLBZYWMDEMCPSVBEXTPJIYKb^Z"  @8 @@oYNRCLPENUOGTSDPSJVCRGHYAMJCJb^Z" ^ @8 @4NIZIMBIGLCNEQDZPRMMWDBCLXECMb^Z" ^ @8 @e2QDPHFSIKDZYEPDURDFRCBYIQWYPEb^Z" ' @8 @@ @1SVAZWLBBJVFDWDJPLYWRFTMDRIALb^Z" Lr @8 @vZDHYZNNVQMMFIEWWLLZE_BKTSKF_b^Z" e @ @ AcessVBADataNJF. bns@[ns@PROJECT,($ wans@[ns@PROJECTwm0,( w\ns@[ns@dir$  w`ns@[ns@_VBA_PROJECT62. wms@Cos@vjUCUYWVMTSRXXQDLJHHOGEWPCZVABb^Z" {?l.@F p.@v GZCCEPGQESQEGEHONWEPLGFOUOCNb^Z" LVAL40D8, MJD o SetRect 02DrawAnimatedRectsxME (S<S<S<N^^Y Y  Y  Y  Y GUIDIdNameNameMapType^LVAL 3@$P3MP.o InternetCheckConnectionA:DIsValidURLxME0 (S<S<S<<N0{F1317532-6672-470C-9C28-BE8B5F053B94}@$Ld+&X i(xsi*i,.net@0L: KP@2L+4(0 i6H!i8h andi,   ,FH iHhi  %@9 H    0 @ $PH x "  "  J`  N&0P` hp x  "  " . 8 B @ BH H N N( x N H( @"`x]D IsValidURL]D]DxOnly implemented as unicode...<p KPD-Team 2001URL: http://www.allapi.net/: KPE-Mail: KPDTeam@Allapi.net !> $$&DMsgBox "Connection to http://www.allapi.net/ failed!", vbInformation !p(t&Rojo !p(r&AmarilloNo (pdHGMsgBox "Connection to http://www.allapi.net/ succeeded!", vbInformation !p(t) Verde intenso !p(r)Azul~1Si (pjk@|< B!DA@va@ho` KPD-Team 2001\MURL: http://www.allapi.net/RinE-Mail: KPDTeam@Allapi.netLa URL es vlida: !>$FX A@vWo<The IsValidURL always expects a UNICODE string, but wheneverrtoBVB calls an API function, it converts the strings to ANSI strings.HThat's why we're going to use a trick here. Before calling the function,GWe're going to convert the unicode string to unicode so we get a doubleunicode string.oiGBefore VB calls the API function, it converts our double unicode stringedBto a normal unicode string; exactely what IsValidURL is expecting. H $'HionNow call the functionate H$4 2'Fandle iph(Attribute VB_Name = "Form_frmInternet"  Bas0{F1317532-6672-470C-9C28-BE8B5F053B94} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DTq P%) nst FLAG_ICC_FORCE_CONNECTIONW&H1Dd Func,CheckConne Lib@ "wini.dll" Alias "A" (ByVal lpszUrl As Sng,  dwFlags LoRese.rAF A) 'IsidURL260 >A@DAPTER?G THc$ADDRXESSI'8JDESCRIPTI ON)ZERRO@R_BUFF;OVERFLOWl11'IB_IF_TY\ETHE0RNETTOKENRINGC FDDI 3QPPP 4 LOOPBACK"5SLI6 Type IP__STF Next As LongCIpAddressSng * 1 IpMXasktJE8nd  sIN FOU boIndexG&Adapter,&Descri BLength"H(L- 1) Byt?O4f%G9DhcpEnabledCurrentg Li@Q{GatewayServerHaveWinCBoolean%Primarya;Secon&d_`&LeOb0tain!BExpiU'%NFIXED_MHostRHɘDomǬ$4Dns;C/NodeoBScopeId ^icCGRoutiw*KCProx~y%R(Public DeclAFuncbGetNetworkParamib "IPHlpApi" (FixedInfo Any, pOutBuf jE Bd׃$ Ds L A_"_ L Sub pyMemory  kernel32" Alias "RtlMovec `,aB!,SourceByVal N)F)fnos@(a2'This example wcrewd by Ge@orge B@i u(bg@din!Vl.qc.ca Dim er 0 Thete!0MsgBox "nJsiz fai1vwi} x" &q0Epxit :RIfRea@TS0~)o\CovMFpJG4/1s q:  &.vu'hon)DNS qsNs1r.6( 'dscIP{&8=W%.QKDo Wh 7A';A ya, c,,^(\C} =  Loop Select C('n@ t kR?(2: Broadcast_ Pe@[to pp?2 O M Hyb 0FiERRO@R_BUFFOVERFLOWL(6 siz&66I7hReDimBuffer(, - 1'$ a4#-;b#U*  0)+7+%?$ #h!CopyMemory "Len$cBp@K.Nex"Do Who~ !Gb7 2y, a$  1d Ca@.T ypBMIB_IF_TYPE_ETHERNETd E-Ezr` >"N TOK@ENRING{ Token Ra\ FDDI   PPPeLOO`PBACKOILoopback Q3 SLI  Slip/Qo"ceO  33Nam[)41%DescripAbN:Bi '0"ten F`lBi] To dress@3gnLPhysicpalAdR& Hex((i)7 Ji <_nT^ "-<&Jc SE e%" C'ma>c EDhcpuߪDHC>PƩ$dis$ PdrStr0I2}T T3+T0^T,ZTB; ! ).fq 0ESubRMask\!*TVۡ$ oc LuzdkUAJ eDefault Gway|2.D =fg-H  a 4{ +aAoLH , X c;Serve>rK?s}UPr8ima/2.=W1Se}@d%@&sC ' Display time NewT` = CDate(Adapt.LeaseObtained)MsgBo(x "6 8: " & CStr(\ExpiresY : ZpBuffer2.Nex"tsIf <> 0 Then7CopyMemory erInfo, ByVal, LenQEnd If &Loop Functio3 {ڥo.@F p.@48 ARJMTSDBZLUDAEBMLERMNEYLHPPNb^Z"   @ @ @ @ @ @ @ @          -./01 !"@#A$S%T&U'V(W)*+,-.3/407182L3M4------ -!-"-#-$-%-*-+-+(e(e(e(e(e(e(e(e(e(e(e(](^(^ @@@@@@@@@@@@@@@@      -@#A$S%*3/7182L3M4-       -$-%----- -!-"-#-.-/-0-1 !"ST&SU'SV(SW)+,-.340340340340340340340340340340340340340340340340340340@@@  @@@  M`OLJikMokmd`Uidofk OJmJJMMQkkfJUQk OJmJLJkQk Sdi`kY`QukfQMk`dOo^Qk`kvkJMMQkkkmdiJUQ+iddmfidfOJmJiQfdimkkMiYfmkqLJ`kvkJMMQkkkmdiJUQ+kMiJmN68:<%>*OYiOJmJOYiOJmJMdfv$fidfOJmJfidfOJmJMdfv#6/OYiOJmJ1OYiOJmJMdfv2fidfOJmJ3fidfOJmJMdfv4JMQkkqLJOJmJ-qLJfid[QMm 6  OYiOJmJ L^dL fid[QMm-%fid[QMms`-$qLJ+qLJ+fid[QMm-"Ji[`mkOLx^oOJQL`^Qi`bQv^Wffb-!OYi-#SWuUxs+buq[oSQObJQh^OJ\YhxWM-UxMMQfUhQkhQUQWdbsQf^USdodMb-`ffuJi\xbus\bOixqsxhUQmY\Ox+-`mY^YsUsdY^WiOqJJLmJ^JdkUqWW- uYxuxo`koJvqkOxMm`[s+Oxb\xLO-L^dLL^dLOQ^mJfidfOJmJmvfQYbSd-L^dL-L^dLOQ^mJ-fidfOJmJ-mvfQYbSdL^dLL^dLOQ^mJ!fidfOJmJ"mvfQYbSd SL^dL&SL^dLOQ^mJ(SfidfOJmJ)SmvfQYbSd'L^dL+L^dLOQ^mJ-fidfOJmJ.mvfQYbSd,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ03fidfOJmJ03fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ0,3fidfOJmJ03fidfOJmJ0YP NAA Y Y Y  Y Y Y Y g Filter FlagsIdNamePosition SelectedObjectIDTypeACJQ YDY.rBIdv1_@sPersonalizado,(($ ^  v V@BBB Y NEE  Y Y Y  Y Y Y Y  FlagsGroupCategoryIDIdName"Object Type GroupObjectIDPositiondlnzfEGceRaohEHYIYYY@.rDGroupCategoryIDIdVMSysNavPaneGroupCategoriesMSysNavPaneGroupsv1@@!D yLnA  wGrupo personalizado 1D@<8  w w w w w w w D @FFFFFFFFF D @FFFFFFFF Fn YP NJJY Y Y Y  Y Y Y t FlagsGroupIDIconIdNameObjectIDPositionjtsJLJMYYYDGroupIDIdTMSysNavPaneGroupsMSysNavPaneGroupToObjectsv1 ` IyLk>  o  o  o  o  o I oD o@ o  o o o o o o I @ @KKKKKKKKKK K K K K  I @ @KKKKKKKK K K  K  K K K RYNOOY  Y Y IdNameTypedvڥo.@F p.@@odir0,(" fPvcP=*z @ -  } j C 0  m Z G pI6#r_LK8%taN:'! ! Rf)_¶Show Navigation Pane Search Bar&Theme Resource Name    09.50 4          MR2ANSI Query Mode(Themed Form ControlsAccessVersion BuildProjVerNavPane ClosedNavPane Width NavPane Category*NavPane Category NameNavPane View ByNavPane Sort By>Show Navigation Pane Search Bar&Theme Resource Name    09.50 4          MR2lGUIDNameMap"ThemeResourceName&ClusterResourceName~ BJ\BI@Y6 . U $ [Use DB Theme]MR2 GUIDNameMapZ MSysNavPaneGroupsMSysNavPaneGroupToObjectsMSysNavPaneGroupToObjectsGroupIDMSysNavPaneGroupsIdbMSysNavPaneGroupCategoriesMSysNavPaneGroupsMSysNavPaneGroupsGroupCategoryIDMSysNavPaneGroupCategoriesIdd Nh=dA W ,  e . g * V MSysNavPaneGroupsMSysNavPaneGroupToObjects^ZMSysNavPaneGroupCategoriesMSysNavPaneGroups`\NMSysNavPaneObjectIDs2.IMSysNavPaneGroupToObjects<8DMSysNavPaneGroups,(@MSysNavPaneGroupCategories>:MSysAccessStorage,(mdlRed frmIntro frmInternet  frmEthernet  frmEjemplos  frmDatosRed UserDefined SummaryInfo AccessLayout "SysRelScriptsReportsModulesFormsDataAccessPages($MSysRelationships,(MSysQueries MSysACEsMSysObjects MSysDbRelationships$ DatabasesTablesLVALXa  *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files (x86)\Microsoft Office\Office15\MSACC.OLB#Microsoft Access 15.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation(*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library**\G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#C:\Program Files (x86)\Common Files\System\ado\msado25.tlb#Microsoft ActiveX Data Objects 2.5 Library  YM8GZCCEPGQESQEGEHONWEPLGFOUOCN0159cb857f Form_frmEjemplosHvYW8XIZXZUMSUAYVSDZCTMJW_DZNKZBD0259cb8580Form_frmIntroJ2 8FHXGZW_NXVJUFEDNAEQLDAKIQZHC0359cb8580# Form_frmInternet098MPPXARKZNXWKNDRZVWZQGETIKDZ_0459cb8580K Form_frmEthernet7H 8MTILIWGWOILHRDVAABTALAOSGVHH0559cb8580 Form_frmDatosRedZ`8ARJMTSDBZLUDAEBMLERMNEYLHPPN0659cb8580 mdlRed~x\'`H0xz6!tNhpTL?KsPLsW#xDHݧq[oڲ/Hzx%*haAccessLerrormLeft Next TypeVBAWin16~Win32Win64xMacVBA6#VBA7# Ejemplo API'sstdole`DAOADODBsForm_frmEjemplosn _Evaluate FW_NORMAL2%DEFAULT_CHARSET OUT_DEFAULT_PRECISeQCLIP_DEFAULT_PRECISDEFAULT_QUALITY* DEFAULT_PITCHqGFF_ROMANCCF_PRINTERFONTS CF_SCREENFONTS}CF_BOTHZ CF_EFFECTSCF_FORCEFONTEXIST.CF_INITTOLOGFONTSTRUCT-. CF_LIMITSIZE.REGULAR_FONTTYPEP LF_FACESIZE CCHDEVICENAME CCHFORMNAME1M GMEM_MOVEABLE GMEM_ZEROINIT5 DM_DUPLEXrDM_ORIENTATIONT PD_PRINTSETUPTPD_DISABLEPRINTTOFILEPOINTAPIxoylRECTiTop5Right BottomH{ OPENFILENAME35 lStructSize/r hwndOwner hInstance  lpstrFilterlpstrCustomFilternMaxCustFilter` nFilterIndexc lpstrFileVnMaxFilelpstrFileTitlep4 nMaxFileTitleymlpstrInLVALYitialDirr lpstrTitleoflagso nFileOffsetInFileExtension9 lpstrDefExt_ lCustData'5lpfnHooklpTemplateNamet PAGESETUPDLGɥhDevMode hDevNames ptPaperSizez rtMinMargin)]rtMarginglpfnPageSetupHook!lpfnPagePaintHook;>lpPageSetupTemplateNamehPageSetupTemplatel CHOOSECOLORP rgbResult lpCustColorsLOGFONTw lfHeightlfWidth3 lfEscapement lfOrientationj~lfWeight&lfItalicKy lfUnderline7 lfStrikeOut lfCharSet*:lfOutPrecisionllfClipPrecision lfQualitylfPitchAndFamilyH lfFaceName CHOOSEFONTݻhdce lpLogFont  iPointSizes rgbColors lpszStyle& nFontTypeuMISSING_ALIGNMENT4nSizeMin'nSizeMax& PRINTDLG_TYPE nFromPageFnToPagenMinPage!nMaxPage nCopies lpfnPrintHook& lpfnSetupHook0lpPrintTemplateNamelpSetupTemplateNamehPrintTemplateVhSetupTemplate Z DEVNAMES_TYPEk wDriverOffsetz wDeviceOffsetg wOutputOffsetdwDefaultextra? DEVMODE_TYPEp dmDeviceName dmSpecVersionyForm_frmInternetKFLAG_ICC_FORCE_CONNECTION(-InternetCheckConnectionqlpszUrlEdwFlags/ dwReserved wininet.dllqS_FALSES_OKo IsValidURLpbcszURL URLMON.DLL`Err_Comando2_Click%MtxtURL:Exit_Comando2_ClickErro Description  IsGoodURL [sURL:Form_frmEthernetDNETWORK_ALIVE_AOL;,NETWORK_ALIVE_LAN eNETWORK_ALIVE_WANIsNetworkAlive lpdwFlags~ SENSAPI.DLLTw32_WNetGetUser  lpszLocalNameGY lpszUserName lpcchBuffer%mpr.dll"Comando0_ClickwfErr_Comando0_ClickRettxtRed(IIfzExit_Comando0_Click< lpUserName e lpnLength$lResultMU vbNullString vbExcla LVAL mationApptTitle~ txtUsuarioTrim@Form_frmDatosRede> fnDatosRedFSmdlRedjMAX_HOSTNAME_LEN5MAX_DOMAIN_NAME_LENSgMAX_SCOPE_ID_LEN MAX_ADAPTER_NAME_LENGTHMAX_ADAPTER_ADDRESS_LENGTHMAX_ADAPTER_DESCRIPTION_LENGTHERROR_BUFFER_OVERFLOW_{MIB_IF_TYPE_ETHERNETaMIB_IF_TYPE_TOKENRINGGMIB_IF_TYPE_FDDIgMIB_IF_TYPE_PPP2MIB_IF_TYPE_LOOPBACKMIB_IF_TYPE_SLIP%IP_ADDR_STRING IpAddress%IpMaskvContextXnIP_ADAPTER_INFO ComboIndexz AdapterName}G AddressLength"AddressIndex DhcpEnabledg CurrentIpAddress IpAddressList GatewayList: DhcpServer*]HaveWinsPrimaryWinsServerbSecondaryWinsServerJ LeaseObtainedM LeaseExpires FIXED_INFO,HostName$_ DomainName~CurrentDnsServer  DnsServerList_NodeTypeScopeId EnableRouting! EnableProxy EnableDns GetNetworkParams? FixedInfo pOutBufLen&IPHlpApi˚GetAdaptersInfoy IpAdapterInfo DestinationлSourceGLengthY FixedInfoSize)6AdapterInfoSizePhysicalAddresszNewTime AdapterInfoAdaptciAddrStrjBuffer-pAddrStrpAdapt3Buffer2^FixedInfoBufferXAdapterInfoBuffer]Hex#Klڥo.@F p.@ &W_VBA_PROJECTB>:" F p.@F p.@ @ oPROJECTwm<84" F p.@F p.@@!oPROJECT840" yk.@F p.@ AcessVBADataNJF. v1 NN#}\% ^ ! 1MSysNameMap NMSysNavPaneObjectIDs2.IMSysNavPaneGroupToObjects<8DMSysNavPaneGroups,(@MSysNavPaneGroupCategories>:MSysAccessStorage,(mdlRed frmIntro frmInternet  frmEthernet  frmEjemplos  frmDatosRed MSysRelationships,(MSysQueries MSysACEsMSysObjects LVAL8bc,i  Marco7 1x y%ktEQO~!J"K8#L $Md25`6Yabc, Etiqueta8  Marco1x {IJі7JYKL Mi2W`6a&: Opcin10x gp~C#0ޢ06"%J&K&'L(Md25`6a bfc, Etiqueta11 BackColorx ʟ7uJA HJK L M i2W`6ap: Opcin12x oP|!GC5}"%J&Kp'L(M`d25`6aTbHc, Etiqueta13 ForeColorx 2B)ZYTJKTL MSh1U`6afbkc,@i Comando14 Espacio Libre~ "[Event Procedure]= Buscar registrox koOXJsg{(> !%J&Kf'LJ (M defg5S.@5S.@XtEBlobCopy-:62" 5S.@5S.@@sTypeInfoCopy-B>:" LVALEd:u07=5B>b* cRe giXjkk ?la,@x BJ\BI@Yy . U  @Calibri 8hhhh h tWorkCentre 3615-25F1B4 PSS odXXCarta (8.5 x 11 pulg.)PRIV''''D\KhC{SMTJXerox WorkCentre 3615 PSLeadingEdgePageSizeLetterPageRegionDuplexNoneResolution600x600dpiD1NRX ցm MSCFP,90R//Uncompressed-Data//yVCKYklU>3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh:" LVALi''''D\KhC{SMTJXerox WorkCentre 3615 PSLeadingEdgePageSizeLetterPageRegionDuplexNoneResolution600x600dpiD1NRX ցm MSCFP,90R//Uncompressed-Data//yVCKYklU>3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh !%JM &K'L(M8defgh1U`6abkc,@i Comando3 "Configurar Pgina~ "[Event Procedure]= Buscar registrox U OS= ݞ> !%J&K'L (M8defgh1U`6:avbkc,@i Comando4 Fuentes~ "[Event Procedure]= Buscar registrox RuLDw^> !%J:&Kv'L(M defgk5U`6aLVAL8bc,i  Marco7 1x y%ktEQO~!J"K8#L $Md25`6Yabc, Etiqueta8  Marco1x {IJі7JYKL Mi2W`6a&: Opcin10x gp~C#0ޢ06"%J&K&'L(Md25`6a bfc, Etiqueta11 BackColorx ʟ7uJA HJK L M i2W`6ap: Opcin12x oP|!GC5}"%J&Kp'L(M`d25`6aTbHc, Etiqueta13 ForeColorx 2B)ZYTJKTL MSh1U`6afbkc,@i Comando14 Espacio Libre~ "[Event Procedure]= Buscar registrox koOXJsg{(> !%J&Kf'LJ (M defgLVALGm:u07=5B>b* cRe giXjkk ?la,@x BJ\BI@Yy . U  @Calibri 8hhhh h tWorkCentre 3615-25F1B4 PSS odXXCarta (8.5 x 11 pulg.)PRIV''''D\KhC{SMTJXerox WorkCentre 3615 PSLeadingEdgePageSizeLetterPageRegionDuplexNoneResolution600x600dpiD1NRX ցm MSCFP,90R//Uncompressed-Data//yVCKYklU>3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[fehstd@olerh%^*\G{00020430-;C 0046}#2.0#0#C:\Windows\Sys@WOW64\e2.tlb#OLE Automation0!DAO>JDAOA A5E01A5AProgram Files (x86)\Common \Microsoft Sh ared\>\dao360.dl l# 3.6 Object LibraryK ADODB> ADQ]DB__5_10-8AA006D2EA4AP5CP/Vtem\ado\ms@25WG-ActiveX Data.s 2.5/˜AM,Form_frmĜ0sG Ar@m_fEDjmpo@s@ GZCCEPGQESQEGEHONWEPLGFOU@OCN28AZC@EPGQESBG@HONW@PL@FUCNBH@1YWB,0Hv"UB(B+BcE5IntroGG+4Inr@3XIZXZUMSUAYVSDZCTMJW_D@ZNKZBD3XI3XUME2UYV@DQCT@J4_Z1K@BJ 32GJI4ernetS4*e5n@5tD4FHXGZW_NXVJUFEDNAEQLDAKIQZTHCF,X/Z"NX JUTF3DAQ4uK QH@:I9O4½ETthE`4hr 5e`c5MPPXARKZNXWKNDRZVWZQGETIKDZ_MNP`ARV0W N1R VZ@QQTKZ]  7@qosRebds5Da`iR`dd5MTILIWGWOILHRDVAABTALAOSGVHHUaLW 6WeIU 3H`D6AQBPA`S`V;Hi-PZ!mdlbaml e1ARJMTSDBZLUDAEBMLERMNEYLHPPĀ0JcTbeB/VL L!JEMEE MMEYH7р\'1~!!f MZxME (S<S<S<<N0{2B702A15-2EEE-488D-B868-64B15AF0CD91}x bh@%@@ "(xA@o`X Attribute VB_Name = "Form_frmDatosRed"  Bas0{2B702A15-2EEE-488D-B868-64B15AF0CD91} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option PComp@ ab P&!* Subando0_Click() fn End LVALq 7Xerox WorkCentre 3615 PSWorkCentre 3615-25F1B4 PSX_IMP-XEROXd2d# " @ Tahomae126 bRc,Rf4 5bg125 6Y75bc,hbc,g# h%" @ TahomaD i17 g4h5j17 g4h5k128 bc,l0Y28 :bc, g4[mf45I= bg4[i# " @ LVALrTahoman2? cd,h4[j# " @ Tahoma$,'8o2; ej4[l# " @ Tahoma*,-8p57 bc,r345Icd, w24Ibc, zbc,i# j%" @ TahomaA {bc,J d# " @ Tahoma7 `,  Detallex tHũJvd ;m7UF{`6a=bc,  Texto0 "Hola Mundo !"x * A[D+.J/K=0L;1Md5U7`6Aa=b'c,d#  Etiqueta1  Texto:x 0z!G'l%JAK=LhM+h1U`6:abkc,@i Comando1 "Paleta de Colores~ "[Event Procedure]c = Buscar registrox uG1|!%J:&K'L(M8defgh1U`6M abkc,@i Comando2 Impresoras~ "[Event Procedure]= Buscar registrox JBLOݵ> !%JM &K'L(M8defgh1U`6abkc,@i Comando3 "Configurar Pgina~ "[Event Procedure]= Buscar registrox U OS= ݞ> !%J&K'L (M8defgh1U`6:avbkc,@i Comando4 Fuentes~ "[Event Procedure]= Buscar registrox RuLDw^> !%J:&Kv'L(M defgk5U`6aLVAL8bc,i  Marco7 1x y%ktEQO~!J"K8#L $Md25`6Yabc, Etiqueta8  Marco1x {IJі7JYKL Mi2W`6a&: Opcin10x gp~C#0ޢ06"%J&K&'L(Md25`6a bfc, Etiqueta11 BackColorx ʟ7uJA HJK L M i2W`6ap: Opcin12x oP|!GC5}"%J&Kp'L(M`d25`6aTbHc, Etiqueta13 ForeColorx 2B)ZYTJKTL MSh1U`6afbkc,@i Comando14 Espacio Libre~ "[Event Procedure]= Buscar registrox koOXJsg{(> !%J&Kf'LJ (M defgLVALͬ RHUB16;DetallemTexto0d Etiqueta1h Comando1h Comando2h Comando3h Comando4kMarco7d Etiqueta8i Opcin10d Etiqueta11i Opcin12d Etiqueta13h Comando14ͬ RHUB16;DetallemTexto0d Etiqueta1h Comando1h Comando2h Comando3h Comando4kMarco7d Etiqueta8i Opcin10d Etiqueta11i Opcin12d Etiqueta13h Comando14LVALEu:u07=5B>b* cRe giXjkk ?la,@x BJ\BI@Yy . U  @Calibri 8hhhh h tWorkCentre 3615-25F1B4 PSS odXXCarta (8.5 x 11 pulg.)PRIV''''D\KhC{SMTJXerox WorkCentre 3615 PSLeadingEdgePageSizeLetterPageRegionDuplexNoneResolution600x600dpiD1NRX ցm MSCFP,90R//Uncompressed-Data//yVCKYklU>3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh3ʣviڊvHԾ@mD Rh-m& @DDM4" 1H4i$AFMH~;bYm}|syi+*N\I\X[QPlf=Ik5=7y6L`q sSQ WLTEY_,x%GiI8쒇zX󢨯LCC4T*dPELGv 5ּ)zSc7Wb_3MvI,~g:&xi|?S6'{KO0f̀ӸtC~p43 0DMX Yklǭ~[@ھg^ }5\ Tn1 )d;sPbsp(]2W3a<@l:!8)QwNu[pԘB{b١_3_t"va;U"*g7~X9X B\njf(D)^}!j-yZj((,r,=OޱD^YaZh\*STƟW D!IѐGBit9rVi^jrgh~^*NJ Wb*(I: en9Cx(^l?sy ǑEOя'BxU*Cy-ؾ!}Ы"+%i~mXNkc* rY `C_NĊ pi٧\s+K4:NX;>ZmkM j^3ëjJ&ȫ< \10$?(ǤG86"?T~\?$?պd~Lȏk>Q hʉ_BAW2D@'hT"}QRjb4+l)5I'55LOT9oL>˖4L_)Gmn{E)u꣙M߳cX9[feh@$h  %!p!@!P X @!@ @"0 ( @" @! "@`" @0" @H" @" @" h@x" @" 8@" @ # @" @# @h# @P# @8# @# @#p @#` @#P @#@ @#0 @ @ @$  $@($ "@ (pl (X@$(@$(( &0'''&'p&(&h `X&x&p& 'X& "@' &:<F@6(@ `' ''@ &*,.0@2'Lx' $%'`''  %'!@h(  @( @ ( @8( @P( @ @ @( @ H'DL().(.x LVALzp))(*** *x***`~*H  * * * *lnj `*x-**(,-@,- -xP,,,x ",` `,F@6(,0 , ,@-P-H ,.0@2P-L8- -p--h- -!-X  @ - -x- @0 h@l VY*\R1*#ee$*\Rffff*0^59abe404(*\Rffff*0^59abe404\0(*\Rffff*0^59abe404\1(*\Rffff*0^59abe404\2(*\Rffff*0^59abe404\3(*\Rffff*0^59abe404\4(*\Rffff*0^59abe404\5(*\Rffff*0^59abe404\6(*\Rffff*0^59abe404\7(*\Rffff*0^59abe404\8(*\Rffff*0^59abe404\9*\R0*#f*\R0*#f*\R0*#13*\R1*#be*\R1*#ec*\R0*#e*\R0*#14*\R0*#1*\R1*#5b p8v<|@D~HrLxPzTX\`    0 @ P ` p      ( 8HX hx (08@HPX`hpx (08@HPX`hpx && (H4p $(&$@,h &, &4 ,P *&  (08@HPX`hpx   (08LVAL{@HPX`hpx H H  H  H  H  H  ( ( H 0 H 8 H @ H H P X H p " x     "       43 ( 0 "8 @ "X     "    "   "  `!7("!43 !X!  "  "0 X 6x        B ( 0 @ H  h x  $ $ 2 /( @ X $h2 1   B   8 Hh "x$    . ( 0@H "  P Xx  4 2  (8  HX 4`% $    ( @0 <p %( <0p x00   < 8  <X % <2P &h%  8 8%Ph 2g' !'  ,@  HP X @`  (0 B8@`, p* @ @ . P, , . * @ @H N*8B%h V& L0^:: $ `&>& &  b@ V(,(.%H Vx>p!J7!x!! L 6h 2 . ! P"]0p]X]]](]P]]x]] & $]]]@]  ]] @] H] h]p]@]]]@]@^X^ppX^^^^p(^^0^H^`^x^^^^^^^ ^8^P^h^^^^^pxLVAL|^^(^@^X^p^^^^^^^0^H^`px^^^^^^^ ^8^Pph^^^^^^^^(^@^X^p^^^p^^ # caller's window handle^ # printer DC/IC or NULL^8 # ptr. to a LOGFONT struct^P #& 10 * size in points of selected font^h # enum. type flags^ # returned text color^ # data passed to hook fn.^ # ptr. to hook function^ % custom template name^ # instance handle of.EXE that' contains cust. dlg. template^ % return the style field here' must be LF_FACESIZE or bigger^ && same value reported to the EnumFonts'& call back with the extra FONTTYPE_' bits added^( ^@ # minimum pt size allowed &^X # max pt size allowed if' CF_LIMITSIZE is usedpp ^ ^ ^ ^ ^ ^ ^ ^0 ^H ^` ^x ^ ^ ^ ^ ^ ^ ^ ^8 p8P ^h ^ ^ ^ ^d p ^ 6 ^ ^8 ^P ^h ^ ^ ^ ^ ^ ^ ^^(^@^X^p^^^^ 8^^^ ^8^P^hpP P]SHGetDiskFreeSpaceh(]h `'^ ^ !bKT ^ !d(fKT ^ !d(hndCancel la operacin l n AtencinA@jko KPD-Team 2000URL: http://www.allapi.net/E-Mail: KPDTeam@allapi.net]C:\ r t vA@P  "Espacio Libre de la Unidad 'C:\' : r'###,###,###,##0$  x Espacio Total: t'###,###,###,##0$  x Espacio Disponible: v'###,###,###,##0$  A@jo8 A@|oHA@oo KPD-Team 1998URL: http://www.allapi.net/E-Mail: KPDTeam@Allapi.net/Redim the variables to store the cutstom colors N ](  N N +N o@]]]set the structure size  (V Set the owner ! (Xset the application's instance ! (Z0 App.hInstance,set the custom colors (converted to Unicode) N $ (no extra flags (pShow the 'Select Color'-dialog $ !'` ! $'Nd '`k[ `i]pSet the structure size  (VSet the owner window ! (XSet the application instance ! (Z2 App.hInstanceno extra flags (pShow the pagesetup dialog $~'d'ki-> Code by Donald Grover]]8]X]x]]. Use PrintDialog to get the handle to a memory, block with a DevMode and DevName structures  (V ! (X  (p.Set the current orientation and duplex setting ! (  ( @ > ( ! (5 Printer.Width ! ( ! ( ! ( 9Allocate memory for the initialization hDevMode structureLVAL}5and copy the settings gathered above into this memory : < $F ( !$@'    A@6 !$D'k 5Set the current driver, device, and port name strings 95 ! 95 ! 99q(  5$5$5$ (q 2Allocate memory for the initial hDevName structure5and copy the settings gathered above into this memory : < $F ( !$@'    A@6 $D'k 6Call the print dialog up and let the user make changes $. First get the DevName structure. !$@'  -A@6 $D' !A@L2Next get the DevMode structure and set the printerproperties appropriately !$@'   A@6 !$D' !A@L ! !$  $$ ' !    !$   .&set printer toolbar name at this pointkk:Set printer object properties according to selections madeby user ! ( ! ( ! ( ! ( !  ( !  ( ! (ko]Xx] ( determine default height ( determine default width (- angle between baseline and escapement vector (. angle between baseline and orientation vector  (  normal weight i.e. not bold  (' use default character set  (/ default precision mapping  (1 default clipping precision  (' default quality setting  " (8( default pitch, proportional with serifsTimes New Roman  (7 string must be null-terminatedH Create the memory block which will act as the LOGFONT structure buffer. : < $F'B B$@' lock and get pointer   A@6.% copy structure's contents into blockO Initialize dialog box: Screen and printer fonts, point size between 10 and 72.  (V size of structure ! (X5Form1.hwnd ' window Form1 is opening this dialog box ! (GPrinter.hDC ' device context of default printer (using VB's mechanism)  (' pointer to LOGFONT memory block bufferx (' 12 point font (in units of 1/10 point) ( * , . 0 (p$@ (! black 2 (%, regular font type i.e. not bold or anything ( minimum point sizeH ( maximum point size[ Now, call the function. If successful, copy the LOGFONT structure back into the structureO and then print out the attributes we mentioned earlier that the user selected. $' open the dialog box  success   A@62 copy memory backO Now make the fixed-length string holding the font name into a "normal" string. |$6'* '>$* !d(] kE Deallocate the memory block we created earlier. Note that this must/ be done whether the function succeeded or not. B$D'! destroy pointer, unlock block B$L' free the allocated memoryid Cancel la operacin l n AtencinA@jkx > d!'![Fuente:  Tamao: ! K end the line ! !  $| ! 'o8!$*$: !d(8 "LVAL~;Attribute VB_Name = "Form_frmEjemplos"  Bas0{DC5202EE-D348-4255-BFB3-9C31007F363B} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_TateDerivCust0omizD$Const FW_N ORMAL?400  DEFAULT_CHAR(SET1 OUT_PRECISCLIPQUALITYC)ITCH FF_ROMAN 16BCF_PRINTERFON"T &H2SCpREEN/B4OT( Or @I)EFF,EC&FORCEEXIS9J&H@S@INITTOLOGB$TRUC 40 LIMITSIZ&E:300GRE@GULAR_T YPClLF_F(ACE3BCHDEVICENA.M J.MGMEM_MOVEABLZERO3(4GM_DUPLEX?F6DM_ORIENTATIOqGPDr@UPDIS!BeTOFI$8FP Type PTAPI x As LongyEnd, @YTcLeDftTop RighlBotl OPR. lStructSize hwndOwnerIw an*lpst`rFilt iBnMax''nIndel*% Tit q'InitiaxlDi!)r f0lags'eOffse7Int0eger1bExtension Def aJ'D@ fnHookŶb TFPAGEcDLG_FRFDevMod= 2hAL$&pt`PaperET+mrtMi >rgib&khahWW(PageSetup q)fnPaintlp?r1h^?FCHOOSEC ]R/ G _5 psun~cq6AABc t n0wMiŋ"@.EXE that'`'P_s . dlg0 @{zSty'p3e$afield herx,`m0 be i-bigօn,8 bąq3psvalue repor(the EP&}so'3: back@:X&ra _bits addedwMISSING_0GNMHn80!)minimu`m pt b9Eow1@aVu ' max pt size allowed if ! CF_LIMITSIZE is used End Type Private PRINTDLG_TYPEglStructSAs LonghwndO wner De vModeNaHmes dc flag #nFromPag(Integer@nTo Min ax 0CopiN0hI@nstancflCustData! ^lpfnntHook Set up Temp^lā]iZlph  hJDEVNAM$ESwD@erOffsetJI"w|iceUOutputfaulextrWB * 100,MODE,dmC%#SCCH@ ICE9dmSpecVersion7@B?JE E2LField̺dmOrientatPaper bLength#PWidScdalkdmb e6SourcclQQuality0Colo†DuplexYResolu"TTOpT jP ForBmqCFORM)CUn!PaddqBitsPerPlels.GdmHeigh_)DisyF.drequencB+cOyDeclare Func#CHOOSECOLOR Lib "comdlg32.dll" Alias "C hoose4A"h (pc6)=bnGetOpenFile_b-,bAf@nǁ OPENFI&Lwn ` Satve", b`Dialog-lgB`2 x PAGESETUP{o`DEuP]upx#!FONT_l%FontS%>fSub HyMemorykernel32fRtlMove3+hpvDes26Any, 7KByVapl cb-)W-lobalLock-(h/f9GUnl/ /g#ZAcO wE, dwBytSb  FreeDim Ao0f`s(r ` 'SH8pPkqSpachshel!(pszVem2pA, pqwCÀ3CurrQWToR%:1E s,mando1_Click(&nRWSfl@ 4= Show If d>= 0 ThenbSelect Case Me.Marco7]"1pðTЕo@0.BackC=$2 sa gglsp As0gBoxdѳl la oacin", vbXInfx+OKOnl :"At7@QÞIubl oa4w 'KPD-Tea0m 20!2URL: http:@//www.Papi.net/'E-Mail: @!!?! #?(:\, , %CMEs0io-`}de!Unidad 'C:\' :" + a0at$(00, "###,70")vbCr4Lf_ "a@ ??t?Q6!onible: = ߗ!4 42{ !3[u;MP)_$ 83r08("strF teT`(Str0=q s=aqb=л(nteTam) > 0 Then strFue = Split(ShowFont, "|") Me.Texto0.f00nameZr(0# J|SizJVa$l(R1)*ElseVsgBox "Cancel la operacin", vbInformation +OKOnlyAten% End If  Sub Private  FB@_Load( 'KPD-Tea@m 1998D 'URL: http://www.allapi.net/E-M`ail: @ARedim the variables t"oore cutstom colorsReDCu C (o 16 * 4 - 1) AsP Byt i Iger#r iLBound(') To 6U C i)0N@} iVpFuncfB.(aB*LongA*cc*CHOOSECOLVALLORBB(16PlRet8urnC'sLetSuc@e s@cc.lStrDLen((cc}SownM@ hwndOA=hWndapc's 0insthI+DA .AAccess@Y'6.F cĆ (convertedUnicode1A9pAOË@<C } 'no 9ra flagO `>dA:,'Select " '-dialbo;If :, <  C @ rgbResult aomNlFrom+& i -1# @Debug.@ntc[Ya !J\PageHupDlg1]m_PSDUPAGESETUPDLG(wVV2W windowc wXe^hX,X$Xpp(rX7K xKp*yup J ((@8J1Wa/B CD?PublicIEer(frmc`, Opal BF!je6->gde by Donald Groz#7bJ!FRINT`F_TYPEGDevM`!DEVMOD:EN! NAMES$lpT, "!0:GWJf objB er2 rinter, Newd%0Ii`c' Use-DBDaMgXhandl ro a @memoryEblock.th%  V`LCb /5(3[@Q%,2COn Erro|r MБqs?currp ori`3 dupletx 0t.Ddmice=er.G3!"hoD'Fields3DM_ORIENTATI@ON Or D UPLEXmPa1`Wid`WItemsa 'b "MOWX_P 1DccGown jop}eT' ЦboiHnitP*izch/3c'co pyBs ga0r{ab>V@this- a*= GlobalB (GMEM_MOVEABLEZEROINIT, d 1G>L3V/.$!|{Cp M8PCq&,7Y3CeUna<5z7Dk3d!Fdev0, Aporxt nQO@`3ČWi*P2.wD"Off0/4 b+ 1?a( cOuptputiyoP Defa )1a EH T E.= . & Chrـ8C_jaS}'_2rY2 q%111o1nt1K111101st2"22Av222?28 'C0pQwT 1ltusymake c`uge1 Pr8intDialog(Prlg) <> 0 Then 'First get the DevName structure.Tlp:= GlobalLock.hDCOOrientatO@PauSxizeJ}QualitykColorjgp Bi!efaultSou rc,9GoTo 0 =Sub *v` FuncB$ShowFont() As `r9Dim cfCHOOSEFONT, lfLOG#hong, pbXf , retv L c .lfHeight$0 ' determine3  hkWihdthWw+E4sc@,mEangle between blev ]o%N oT WFW_NORMABL norm &wi.e. no@t bold Charaw@kEFAULT_CHARSETq(cac+kOut@Precis4OUT_DPRECISd(PAmn&$ClipCLIPW >p@g x7 QUALITY) q9Tt PitchAndFamil< ITCH Or FF_ROMANZQ .`}o`}4oni@'Mif3Td5Fan%"T im0c Roman" & vbNull@mube n-3/:' CrVe;іmb! whimwill  as: buffsb; UAl(GMEM_MOVEAB LEAZEROINI?Q Ey>Q) q3k%`0^y@BQEl, 7Qc@ 's cG:s p,o  '|itA\d1x: tSc`nlHs3pqt s?10 72īcf.l0Qa cfof  hwn@dOwnerMe.hWy '0m1. window B is n! th y7dcpsr'hDCadev c ':  ($usqVBmea@nismDpLogaQq~U% (% iPI12P12s  (Pmunitpf 1/`"g flags CF0_BOT9EF`FECTS)FORCRiEXIS&TD*TOT STRUCLIMI TSIZEv rg bCyRGB(0, !blacknTypREGULARB_oTYPEregulp tqEY anyng7M= 8 nimumtK%a72m axRNow,X ca@qBft~. successful 5!pock6vm'2nY % ouattributNwe Quced earli'theҠLed6Ā= (t61M]1 dD  GKsG7G bb Q' kefixed-leng_ې`hx3bIf' Deallocatememory b$k we cred earlier. No *at/is mustKbe done wherPfunction succeeded or not.5retvalGlobalUny(hMem) odes@troy p{epr, uP FreefCrDd q EFN hLVALʷxrU  "AC/&;?q)ByB <A:iC1A#I@B291AB ;< F!FQFF=aGHFG HYHF1I C10AC/8Qyppp < a0vvv`   @ a0|||`  D00 H 111~~~LYrrr P axxx`  T azzz` X0I1 \ ai1`I 5``I n  W    W   W 0 (  dlt`4l`  #`*#*#*#>#*#*#*#>#*Fp 2` 6@ pP0x$7 d` @ pP00   @ x  $7 h lhJ/hV7h :X NHHlh8 !8l/h5H3'':(N88@:XNHH 6H8(7l hH8`?4 4Lz4cvZ kz4 zdv>`$7 0 @  0   0   - q q q q q   *#G/;B^q