ࡱ> $&#|5 bjbj%2%2 " GXGXl,  ,| `$2 Rv!!68     r},\ L0|     1h/ =!"#$% i8@8 NormalCJ_HaJmH sH tH <A@< Default Paragraph Font  z0008@0(  B S  ?Scott M Fulton IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M Fulton IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M Fulton IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M Fulton IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M Fulton IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M. Fulton, IIIQC:\WINDOWS\Application Data\Microsoft\Word\AutoRecovery save of DiagramMatic2.asdScott M. Fulton, IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M. Fulton, IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M. Fulton, IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotScott M. Fulton, IIIAC:\WINDOWS\Application Data\Microsoft\Templates\DiagramMatic2.dotVR" " VS" " VT" "   DiagramMatic DiagramMatic&X&X&X&X&X0 ( ,DiagramMatic.ThisDocument.ShowDiagramCentralShow Diagram CentralThisDocument.ShowDiagramCentral((0  0`P @00@ P`p 0p@`PP`@p?  0@P`po_@0 /@P`p`P@//Oo߯ϿoO//OooO//OoЏoO/`/pOooO/p`@/PO`opРopO`/P@ /0O@oP`pЀp`oPO@/0 /O o0@P`pp`P@o0O /Oo 0@PP@0 oO 00 p(,DiagramMatic.ThisDocument.ShowDiagramCentral!DiagramMatic.Module2.SetWallpaper DiagramMatic.Module2.MemoryArenaR DIAGRAMMATIC.MODULE2.MEMORYARENAS!DIAGRAMMATIC.MODULE2.SETWALLPAPERT,DIAGRAMMATIC.THISDOCUMENT.SHOWDIAGRAMCENTRAL@P/p@UnknownG:Times New Roman5Symbol3& :Arial"h+KP4[*q#~0dߎa2QScott M Fulton IIIScott M. Fulton, III Oh+'0 , H T `lt|ssScott M Fulton IIIcotcotDiagramMatic2.dotScott M. Fulton, III991tMicrosoft Word 9.0I@D!g@d:Z@2 ՜.+,D՜.+,P  px  Ingenus CommunicationsvA  Title 6> _PID_GUIDAN{4E16ED12-7C32-11D2-81F5-B9E46E69C214}  !"%/\()*+,-.Ui1;3456789:0<=>?@ABCDFGHIJTLMNOPQRSEV"XYZ[]^`abcdefghWkwmnopqrstuvjxyz{}~Root Entry F'!1TableWordDocumentSummaryInformation(DocumentSummaryInformation8Macros Պr}VBA Պ2ThisDocument`  !"#$%&'()*+,-./0123456789;<=>?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\]^_abcdefghikmnoprstuvxyz{|}~|8  #DBDEST FDBDESTxMEPSLSS"` <"<<N0{00020906-0000-0000-C000-000000000046}p %"8H@%"<0@%%%th &`i(oesn *X`8 i, the 0` 2` 6`x@ 8X` >`$%" 4x@b$8@@X8X`hHX8`X $*\Rffff*;4383f25a4*\R1*#17c( J JP F   "     "  (0H " PX` " h p 2 "  2 "   $0 Xh " pxDEven though this private instance is set to point to the public one,D and the public instance doesn't take events, this one still can; it? doesn't have to "receive" its events from the public instance.]@]@8]@]@o DING2.WAV B@.oX.o 4., Set diaCom.appGrabber = Word.Applicationo@ 4., Set diaCom.appGrabber = Word.Applicationo 4. DiagramCentral.Main diaCom :B@<oX..4ophҲAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2'Even though0is p!% i`nstani set to pointhe public one, ' and doesn'ake e16ts,4 still can0; it#have9"recej"s from6. PD/With6ts diaC As DiagramC`onsolJX.VarHelp$IDa-1wo(rd2 App@Aation }YvicToryANew Vi@ctrolastrSignalSng Sub6_DelBe (ByV i IndexA In@teger) E@h InsergFi@9S D..Pl aySou"DING2.WAVG@_Cl( SDh= NothiA9L@hMai@1'g .appGrabber:W8.*7 POpen cDE i@3 ShowTralZ.B 2.a V_QuitrF4,B7xME(DiagramConsole2(DiagramCentralKLDiagramMain :Diagram_ p "x D "  < " !(!8H >`  $*   "  B `  "     (j x  B (0zH     0@ HX " `h p x \ 0@H " PX `p   cDBDEST*=h8+3qDBDESTDBDESTxME( $SS SI$% n`H@h z`l- |`(<4)HP %i,piii` H`@P @%  `D ^ %  `Hji H `p n,!hL ui AhP yi,!hhHT i AhX i%*K @(@"NH@bTL@ hHxP h(H(% h F@Tx x P `@ |p ) @t  @ p ) @p @l @\ hL PH 8p jx $%` @ ` axX  %(hxp "*\R1*#17c*\R1*#17e    ( 0 8 @H P X ` "  h  "    "  6 ( @`h B px "    B  "  & HP `] P]@(]@x] ]@ ] ]@H]@tPtPxtPo=Occurs when the user _switches_ documents, not _alters_ them.o05Occurs whenever the user consciously moves the cursorPEIoh !.DI !p.F diagram.ini @(rMediaPath @%t'T TCI @!v'T T\MEDIA\ x%~ T\MEDIA\'TId T\'Tkko;For all intents and purposes, this procedure should execute but it absolutely won't. TMediaPath @,t.@oP] , x%~G|j! If docWhere.Saved = False Then ~!$ Document ~!$ $ .DOC ~!$ $ .DOT ~B@kp R 'R<Note: If you click on End while in break mode, the Diagrams collection is lost. DiagramMark R0000$ '  l ~!B@l Selection.InlineShapes.AddPicture FileName:=strFilename, LinkToFile:=True, SaveWithDocument:=True.N R N( ~ N/  N(  ~% N/ , N(r N JB@.N ,uZo](A@ !!B@ " l! J!    p!B@  J !r l!B@  lB@ .oH]  J !! p!% ! JB@kP .u\o(o0This is the procedure we have to use in place of Class_Terminate. TMediaPath @,t.@oH T'mx  x%~ 'T TMediaPath @,tk(m  V'mh  x%~ 'V VMedia LastImage @,tkmAttribute VB_Name = "DiagramCons@ole" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobaBlSpacFalse dCre atablPr@edeclaIdCExposeTemplateDerivCustomiz EPublic INILocal As Newtrol P+/ WithEvents appGrabberWord.App%ation .Var@HelpIDt-1-docThis)-Docum< ,,6Ās6Collec) diaA  B>iIndex CountIn tegerFstrMePatheSngLastImage@U DeleA&(ByV@c ) Inser A1FirC! Reconcilij(@x(Subv_]BeforeSaveOD&%, AHsUIABoan, Cance E8nd PCh0angeA)A'Occurs when the u@ _switc`hes_ B"Es, not _a0lter`m.r_WindowS1bD1ev@b-sciously movesb!oG Class_InitialDizfSetn= nA$hcmdve6 A~.FeXa.ini/ J[=.Prof MEntr$yS^("", "!a"$If l"" T@8y !1sDir`vory' Syst(em.(j & "\MEDIA\") <> .{EAej=ad(=If e _ ac@Termin@_For all i@ⰱhpur ^t procedure should exec' ` i Ib@ Swon'tcaFB;)@K ONo! C- $(VWh>e `G` , piWid HPeigh9Z,C "" ThenK->oIsLastImageOdO DOF%OFţCbQ!d B@|kClose (hho@ B@ :A@rooo@ooop  !d x%~  !d$  (Cancel (ko@@Unlike _Initialize, _Activate is recognized _after_ the startup.o] 4. !'  ( !'   (dk0 Image files ,0*.BMP; *.WMF; *.JPG; *.JPEG; *.GIF; *.TIF; *.PCX ,o>Although this is the first procedure in the form module that's> directly called, it isn't the one that's executed first. The? Initialize event procedure receives that honor. So _Initialize@ doesn't see diaPass; as a result, there's no way to receive the# object, until we return down here. Dim strLastFile As String Set diaGrab = diaPass strPath = diaGrab.MediaPath lblPath.Caption = strPath$ comDlg.ActiveDirectory = strPath) comDlg.FilterTitle(1) = "Image files"R comDlg.FilterExtenders(1) = "*.BMP; *.WMF; *.JPG; *.JPEG; *.GIF; *.TIF; *.PCX"# strLastFile = diaGrab.LastImage If strLastFile <> "" Then% txtGraphic.Text = strLastFile End If Me.ShowoX@   ( !d !d (kkoAttribute VB_Name = "DiagramCent@ral" Bas0{E944BEA6-EE95-11D2-8842-444@553540} J2J dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP strPat@h As Sng, LastFi\ 'Here we ![ a p#instanof the kss,^ ! i s actually pas vtoform modu!through itsrtup tine. TEbecomes responsiA` disKyingA) . BWithEvs aGrabEśol hdi .Var@HelpIDq-1 Dim @!DlgNew @Commonl og1GSub btnBrowse_Click() $.lorerStyF= ÍReadOnlyBox#čFAuM@Exist! Show2ButtonOpenMultipl`eChoiB ActDirectory@D1˜=I%G1V= .l glbl[.Capti#Btxt t""snc( gInsert D9pocum`pB&" ", _g i$mg8Pi@re.Wid@/ 30,Hea* ?I EB Ifct&J"Cl`@$RenderT!%! ?19A_Dele](ByVal iIxIntegerP9ec2 f[This"u 8 g2db?q _ChangeRA.W#a P* System.OpJ4&1A) + ?%!~L3(5FQ$%$'% U3F@r_3 |ec'#ike _Initialxize 3U!wYognpd _after_"wt q/+Eo"G (Setfu=Ma>i4ApbP`A@e]('AlthtP>!irЁproce$du0in/hat''`~ ? ;=TDBDESTDBDESTDBDESTSDBDESTxMEPSPSSS"<<<0{E944BEA6-EE95-11D2-8842-444553540000}{E944BEA2-EE95-11D2-8842-444553540000}h"<x@%%"H0@%0(r% ` ` @` ` `i( @` i, ` ` `  @ `  `  `` @ `)8%  `% %b4@b8@h8@@@@(:`8@8$*\Rffff*;4383f25a4 x H FX H   " (08@HPX ` h x  > $ XP "X `p "xT "  (8 " @ H " P X "` h "p x "  "  " FP "X`  h x    J@ " H DP D F F( *p $  & $ *8 0h X * $  ,H x  "     ]@AHere we declare a private instance of the class, but the instance@ of this class is actually passed to the form module through itsCA startup routine. The startup becomes responsible for displaying the form.]@8V] 99999 9 9C@5'  (5 (dqp8 strPath = Left$(strReturn, InStrRev(strReturn, "\")) lblPath.Caption = strPathR txtGraphic.Text = Right$(strReturn, Len(strReturn) - InStrRev(strReturn, "\"))o :A@ro !d  p  !d !! !! 0Rced`Wtn'tronep execd7 'pl* eaХe0sb honor. So).UdoesIseia; as,0p's no wxay eobj, untilAr"~ down hP2"{///1 X//`,1%=eOh(**)-*_*_* ,Z*B7O:@:R_:փ&]uu:BMe.bbTTerminT`>#C 10 GK)%1a <<< <x%%4@H > @@ $7The main instance is placed here because it is the onlyc29 place where we can put an instance that is guaranteed to remain persistent throughout.]  HаAttribute VB_Name = "DiagramMain" 'The m, instance is placed here becau*s,t2t\onLlyrJ wJwe can put tha6guaranteITto;retpersistent throughout. Public dia As New Console >0* pHd DiagramM atic<@ = v %?D8<Vrstdole>stdole f%\*GIFKTGIF'6WMFKTWindows Metafile'6S Unknown'6nmx?If the property were simply the filename or the active document? title, then when either is susceptible to change, the property would no longer be valid. ~.m0 :.~mP (.<m 'm  >' m@The Diagram class cannot be responsible for placing the bookmarkA in the text at this point, because it does not know now to which; document it belongs; that property has yet to be assigned.] R'" !p.~(can be changed later @ !B @! ~!D @.(y`kX @o@] H(  ~!G|j ~B@DiagramMaticPlaceholder "0000$ 'F F l ~!B@ $B@H l J NLC@5!7B@Pk8  rRT $!5B@ XC@V F ~%B@P ~!ZB@\Caption9^ C@` $ bC@`q|HxophAttribute VB_Name = "Diagram" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExpoDseTru `TemplateD0eriv$CustomizDP strFilenAs Sng, Desc ript  iThisIndexIntegermark WhereWord.Book doc Doc umentte ""L< “=,EtceImag)CLocationC S@6"&Q")(NX$#On Erro@r GoTo`Nv`alid1aHItf [.A7% Exit;c" s.sts)-A&g-` )2#6A^_g F.Range.InlineShapes.Count` M[-9a9ni InC&:)05B}aHTypeOcDimOTaZ "= Ri0ght$[W, Len  -hSsCa@@@E?=Ay!FLPX>yH#/՚Sub Class_Initializ S *' T ss cannot responsb$ff(ЦcipA)b(in+tex0t at`(point,cauCodoes&t& A6w )whXichV. breA)s; 2has yp~*p igned+_WhC[Rn"5.2A8q* '05d. QFpEach EIn 2sc@em e.@edU @@xteA 4q"` W5Nv"b6riv#~(:vholderߗ*S3@0-HOr@ " Wq@ c`+ M0c" & maG", "0"1Addц, Sc7d W[q.MoveB U ;:=wdChar`er, *:=1,ФtExPq1$ (1).Dt #Pictua:=8,PMkTo:=Aave5u99:=g.Cаollapse wdRight  docWhere.Bookmarks(strPlaceholder).DeletedFields.Upda >.Style = "Caption"v.InsertAfter hDescrip !Chr$(13)@End With xit Sub Invalid3:On Error GoTo 0  7  P qDBDEST*=h8+3qDBDESTxME PSS S<<<<*<&@H*N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}Xb"<@"D@%h %J%%,!hDi AhhHH i,,!rhi Ar(h i.,!hph$ %)  % h()2 %,!6xh@,.i `8,!h0F%) % Ph(4M);H%,!<h8 Q%) f th%,! h< Ui omes Ah`@ Yi>9 n`L ] @(d% 0`P m`Fh.Ca`8%b4@b 8@"$(@`@"(H@xPh( (hxPH88XT  ( B 08@ "  H P`hp B x "   B   "    0,@ px B  "     ( 8 H X h x      B  F FP   "    B   B   "  (08 " @ FH H B  ((0Xp    "   "  <P hx 6 (8 HXhpx ]@h]@]@]@(]@ "'m8 " ,'"kmh 'rmp . x%~ .'A@0k8m0( $.m4 ~!G{j 2! ~!% 2.$  $!!!A@0kkx{p4h`mX]`   . $ '8 8JPGKTJPEG'6JPEGKTJPEG'6TIFKTTIFF'6TIFFKTTIFF'6BMPKTWindows Bitmap'6Module1 l8VictrolaRINIControl3Module2 ,2H H   (08 H @ H H  P`x  8@HPX`hpx H        (08@HPX`hpx H  H  H  4(4h,Dh@GetActiveWindowh8QIFindWindowAhXs$GetWindowRectb.h|atDGetClassNameAArPhhChooseColorAActecryGetOpenFileNameA coilrTGetSaveFileNameA GetFileTitleA 8 ChooseFontA xME$ PH  ,     @^^^^ p@8]] d ]  `]  ]   ]  ]  ]  ]  8]  P^h^^^^^^^^(pp@]D(]D`]D]D]D ^8^P^h^^^^^^^^(^@^X^p^^^^^^ph Logical Font] ]@L^^^ ^ ^0 ^H ^` ^x ^ ^ ^ ^ ^ ^  p@ ^X ^p # caller's window handle^ # printer DC/IC or NULL^ & ptr. to a LOGFONT struct^ #& 10 * size in points of selected font^ # enum. type flags^ # returned text color^ $# data passed to hook fn.^ # ptr. to hook function^8 % custom template name^P # instance handle of.EXE that' contains cust. dlg. template^h % 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 &^ # max pt size allowed if' CF_LIMITSIZE is usedpX H @] ]  ] ]  ] 8 ]P h ]  (! openfile.hwndOwner = Form1.hWnd$ openfile.hInstance = App.hInstance Image Files$b**.BMP;*.WMF;*.GIF;*.JPG;*.JPEG;*.TIF;*.PCX$bAll Files (*.*)$b*.*$b'  ( ($\ ( ! ( ! ( ! ( OpenFile.lpstrInitialDir = "C:\"Choose a diagram... (Gopenfile.flags = OFN_HIDEREADONLY Or OFN_EXPLORER Or OFN_FILEMUSTEXIST$OFN_ALLOWMULTISELECT Or OFN_SHOWHELP$\'*'& $'Do Until chrZero = 0 ! * ,'&+If chrZero <> 0 Then chrZero2 = chrZero + 1Loop ! & $ ( !'i ] ] ]0]?H] ?  +4   +4   +4  +4 0 0(( cc.hwndOwner = formDiagramCentral.hWnd cc.hInstance = 0 4 8$6 0( 0( 0$' =Form1.Caption = "RGB Value User Chose: " & Str$(cc.rgbResult) 0!'."return the color8 CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)dp%MsgBox "User chose the Cancel Button"'.k(i Attribute VB_Name = "Module1" Declare Function GetA$veWindow Lib "user32" () As Long vFdlAlias "AJByVal lpCla,ssZSng<, M  Type RECT LeftTop RighBottomEnd ,)aKRect[hw ,qS^ .?8$VnMaxCounFB%Const WM _USER@&H 400 CDM_FIRST(+ 100))LAM2LGE`TSPEC+ &H  FILEPATH 1A OLDER 2a IDLI*!3 SETCONTROLTEX>K 4J HIDE -5 DEF6  ChooseColorúAl@uuctSizeKOwnerPI;ancrgbResulld pCustBBso flagl!aData/lp@fnHook1Templatek< gsgh$scomdlg32.dpll" Dh!hp=c!+!b PPriv `OFN_ALLOWMULTISELs`=&H\qAREADONLY4SHOWHE4LP"1 nEXPLORr80c fMUS U#[&Hs IOPENaANAMEIa? IIlpstrFiltP(DombO'#nIndexQI#B]A `eTitlzInitial|Dibp ie Offse"tIn0tegeHExtens . DefPn ;;;ri;Ope2 >"o_;Ѓo;file>nqi-;oetSaveBp/1C%J@f}sza3Gsz$cbxBufd r&! D 'gicFont|LF_FACESIZEHD32yULL6ÀLTELOGFr=fHe!#lfW0idthq l3fEscapemenh lfOrinaW*lfItalicPByte9 UCr8linR>1ke OuCharSs8PreciE8lipBIQu ty lfPitchAndFamilPFacs(1 To y9S B@.a  ' %ler's whandlhdwpCAcDC/IC or N`'XpLog t'Wtr. tox a ``'ipPoin1 0 * sqin ps of selPed f?2Zfenumʂ7preturntext k~dpo k fn.pso^^B czt4 Yhͧi"@.EXE thaIW`'a . p0 szS|ty)~p3e sbfield her,0bm be8A-big{@ 8MDZsnvalue report`the EP&1s  'call back with the extra FONTTYPE_  4bits addednMISSING_ALIGNMENT As Integer%nSizeMinLongZYminimu@m pt s' owed & @ax@ ifdnCF_LIMITSIZE is ussEnd Type Declare Function ChooseFont Lib "comdlg32.dll" Alias "AA" (pf7)l4Public4OpenDialog(StringoOn Error Resume NxA Dim o fileOPENFILE0NAMEAlReturFe, iG!CstrFilxterPa1, C  PosE, Last#chrZero 2E @ GuA =."luctA = Len()  } hwndOwn9= Form1.hWnInstanceApp.h?K= "Im ag@_s" & Chr(0)@"*.BMP; *.WMF@GIAJPGJPEŁTPCX B"A@ees `(*.*)* *%lpffn#>Index=@1 /(257, 0* N.nMaxA.B.) - 4 Tit@V= D we'Ag#InithDir"C:\"J  $w a diag@ram...'A&%flags OFN_HIDEREADONLY Or aEXPLORERB7pMUSTEXISTcALLOWMULTISELECTESHOWHELPa@6_= /1e/g=*Ae{= Get N0ame("6'Do Until 0 In >( &F2~!, vbTComp 'If<> 0 TheZn%2@'+'pLoop/ LeftgI,F `J?!a  aeShowColorCס !ccAC Custc!(16Cioms($o 63bxBytc⳦ v J0[=q0!ep 4! ADi)@255P7(`i * 4K oP22i'P iccY(cc VXfX7CenvlYI7Yb+0lp P+Con v( *UnicodePy synchronously (default)A1aNODEFPAULT<2silennot 8, if sound AfAIMEMORY4lpszS points to a mem`ory f ALIAS10BnM is WIN.INI [B#s] entryFILENhAMEB2S  RESOUR:C42rerGA$ua q0_ID010 id2ifi pSTARj@m@ be > 4096Tkeep s@ngs in s'section of - \LOOP*8moop the|until next sndPl ay:NOST$ 1 @don 't any pcurr`Y[ilng# ) V 'Fe `iidjs / ;Ini nal /WAId[ 9#waiVt!Z!d{rKb us IFLAGaR7201"S et* bits. Anythouts :!LERVEFF'B In!ti|cu@/@! ^r2e7er`i TYPE_MASKM7 7 P D Fun@ 7 Lib "winmm.dll" _ Alias "A" (ByV+ yAs SbM,"C$`Long) wJukeboxNew  YMediaPath! )Sub Class_Initialize(= .FBvp.ini! =C.Pro!eE("B", "" trB " Then *A ` WindowsDir ugIf aSysPtem.(& "\MEDIA\") <> "mAEA/e]tEaIf?qTeprmin*gp/ a9 No8 ublic1L1j+,BooleaTxDimVa7*,rtop+Qc ۀ =!$&5s )p h-le-s-a34. ,o'q  trSw s ooup)QT ? p,œOrquY     B $ (08@H B PX` " h /p $5    B  B (0 B 8@  P` x  $$2 (08 "  @H` x      :08@HP B  X`  hx@$s( T@@GetPrivateProfileIntAA@-8GetPrivateProfileStringAp,WritePrivateProfileStringA\GetPrivateProfileSectionAWritePrivateProfileSectionAwnGetWindowsDirectoryA,GetSystemDirectoryA[DBDEST*=h8+3qZDBDESTx$\$V@IsndPlaySoundADBDEST*=h8+3qDBDESTxME PSS SxCBBBBHB BL C "X4@bT8@Px@(8`8xhHhhH("; (0((X<:6*86hBT:@:64@0<p H   "   ( 8$H p  "   B   0 P ` p  " flag values for uFlags parameter] play synchronously (default)] play asynchronously]") silence not default, if sound not found6A]' lpszSoundName points to a memory file](" name is a WIN.INI [sounds] entry]P! name is a file name]!! name is a resource name or atom]x!- name is a WIN.INI [sounds] entry identifier]8A must be > 4096 to keep strings in same section of resource file]( loop the sound until next sndPlaySound]( don't stop any currently playing sound]`$ valid flags / ;Internal /] " don't wait if the driver is busy] #+ Set of valid flag bits. Anything outside]!( In particular these flags are reserved]@]@]@8 victrola.ini X(rMediaPath X%t'T T X!v'T T\MEDIA\ x%~ T\MEDIA\'Tdp T\'TkXkPoHx TMediaPath X,t.Xo]8P T Z'\ \ x%~Sounds Z X%t'^ ^ T ^'\ \ x%~'\khk`kX \ \ 4 <A@Rk(i Attribute VB_Name = "Victrola"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5ME SS S<(<,<<<<< <$<0<4<8<<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}`+p@ i` i ii^+,p, i ^i@^i`ii]Di8 +\p\ i i@i`i+@p iii i+p iLii+`p  i @iL+ p i Lib@<@b0D @bhF @ % n`<@\ ,!(h  i  ,!rhh $i  Arh4@$ (i ,!vHhx(( 4i ,!h, 8i ,!th4@0 <i  i"(i Hi `$t`&p AtX h4Pi i" i 8 i,!,0 h 8fi  i" i  i `. A, hp <ui  i" i  i0,!4P h0 @i  A4 h Di6 ,!8 h Hi  A8p hP Li6 ,: ` P i  i  `,* `@@H Ti  h i< i  `h t`>r @ ` Xi 8i<Xi  ``B`D%b4@b8@b@@bH @  @`X 0  (H@p P h P XX`/H$H,H$8H$PHh HH  ""E!(0$C@!h($C    "    8H PX `p x    : B (0 "  8@H B PX` "  hpx B      B   0H\`  $)  B     0  H  `   0         pl ac@? t\`Profil]@]@@]@0hecti !! .INIControl'$ \' A@  $ b $ '`$ \'` A@   $ b $ ' \win.ini''''o \  x%~'d'k 'm( 'rm $ $.INI .INI'`kP \  x%~` ''d'km 'vmH 'm]h $(  " %*{dx'&khd` X '&kH$ \'$`  " & $ $X $ $ $$ b $ 'td &'tkm "   " %* i{pkhd` {Hk@k8  "  $'d  Cannot write to . B@kk''mX ] $(  " %*{hd`'.kHd@ X '.k(  " . $',m0  "  " %* `{kd {kkx  " 0X $ 2 $'dH  Cannot write to . B@kk''m '4mP 6'm '8m 6'mp ]  $ \'    $   ,!v':kkki ]   < $ \'    $  <'> >  > < $ ='*k(k kki ]x]  <  < %* $ \'GetW    $  <'B B $ b'D  B $    D $ '   A@kkkiAttribute VB_Name = "INIControl"D Bas0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalSpacFalse dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EP DA Function Get ProfileInt Lib "kernel32" _ A@lias "A" (ByVal lpAppli ca-As S1ng,"Key  nDefault Lo FO) 8C$i9C :B!;:AtnyA :,Retu_d9EA nSize@sIWriteW BJI!P ?^SeCa^$dDMZA5e:#l9Iq3_fW'6#?S } ;xWind@owsDiroSub Class_I@nitial(b) =@E.A;veV*B0kj .7& ".J=h$(255, 0?m% C, &vC{Left$(hInP Chr$(0))p - 1 t $ 3CeA=\win.inii= T,ruqvek= pNullEnd ub pertyq: w$(,!aIfP .+ "Pp ) <> "" Then E_g4 If#.= x Q% _W)3`"ingw+ PlLetb!ett6'&UC`(R(igh*S, 4P)2](B D 02x,?DDI= ) ` @/3 P*> -sl/ Tyot16EyC!3Cgs],r@5#, Opf>VariantB:#Dim1Ypέ#S@#IsMiss+()<@Me.Parter  )@"#`"bGb#8 DPPL@C*C 2_128h"/ngOPGT, C (LenQ3))06=K"m6e?e p?QOOK-tring(strCategor@y As S,B Item HOptional vDefault8Varianta`Settf)H If<> "" And"wThen04Me.ParameterExists ) 9=bOK2Overwrite = False*.t Prope8rtyA UIf= E"o5CreH4 <:8Wj0Priv9[fi 095C.D2!q r7B Ke4iPosir neger bcc~ є0   NI/q 7 = tr 8&G_!dMid$%, g+', 1)"="$ _$"= q% %RemoveVa %%/%"%@iSnipxLef2ڤ%QRighiCS_' _'$O U /+ng/+o+ o+o+RHV7+5%cR3eChr$(0)/4 P(1K.r-q-& *[W ,- 7  6KateProfileSectio@n strCgory,`Buffer(INI  End If& Fun         0 @ P ` p            0 @ P ` p            0 @ P ` p            0 @ P ` p      "   H   (08@HPX`hp ( x@$$mPh@ISystemParametersInfoAem@\dgrGetSystemInfoxME,(< << < ˜L B˜PPB˜R B˜V( B˜Z B˜\P B˜`x B˜d@B˜f B˜j B˜nB˜p B˜t B˜x0B˜z@ B˜~h B˜!B˜ "B˜ $B˜ &B˜ )B˜+B˜-B˜0.B˜X0B˜2B˜3B˜5B˜7B˜8B˜:B˜<B˜ =B˜H?B˜xAB˜pBB˜DB˜FB˜GB˜IB˜hKB˜LB˜8NB˜PB˜`QB˜SB˜XUB˜VB˜XB˜ZB˜[B˜(]B˜HaB˜PB"@%+P p i i i@ i x h  h h h h h h h8 h   ,p ,)  A%x $( ` ` (` * %˜H B˜JB˜N(B˜Tx B˜X B˜^B˜bB˜hhB˜lB˜rB˜vB˜|XB˜ B˜#B˜%B˜H*B˜p,B˜/B˜1B˜84B˜`6B˜9B˜;B˜(>B˜P@B˜CB˜EB˜HB˜@JB˜MB˜OB˜RB˜0TB˜WB˜YB˜\B˜ ^B˜pBH P @ ( H XP` pP0XpP 8hH(h x X h( H`8 x 00(   x@(P` @ pF ( ` , 0 @ P ` p            0 @ P ` p     "  H$ L( x "  % Parameter for SystemParametersInfo()plat] tic2] ]] ](]P]  ,:I] x] ( ] e]0]P ]]x ]]@] ]h] ]]] ]d] ec]]0A]@ ]X] h 5]!]"]# ]$]% ]&]) ]* ]+H],]-p].]/0]0]1X]2]3]4]58]6]7`]8]9]:];]<]=]> ]?(]@H]AP]Bx]Cp]D]E]F]G]H]I]J]K@]Lh]M]N]O8]P]Q]R`]S]T]U0]VX]W]X]Y]Z][]\]]]^(]a  SystemParametersInfo flags]H]P` ^x ^ ^ ^ ^ ^ ^ ^ ^8 pP ]@p ] D:\Media\1701a09.BMP'B strFilename = strFilename & String$(255 - Len(strFilename), 0) hX   $' &F strWallpaper = Left$(strFilename, InStr(strFilename, Chr$(0)) - 1) MsgBox strWallpapero`( ]h *A@ *! *! ' , ,$ 0A@.oAttribute VB_Name = "Module2" ' ParTter for SystemLsInfo() Const SPI_G@ETBEEP1 ,S,2 ZMOUSE.3 .4 /@BORDER05 06 1KEYBOARDSPEErD810 9 ]LANGDRIV:1 _ICONHORIZONTALSPACING0 fSCREENSAVETIMEOUTlr$ACTJ$ x $7 GRIDGRANULARITY8E9DESKWALLhPAPG2VP@ATTERN2 V@3E^DELA ~2W2JV_eT4ICI_2 TI@TLEWRAA2MENUDROPALIGN{o2T* UDOUBLECLKWIDTHDTEHEIGHA3JUÀM+LOGF3V@#ICK WBUTTONSW"#3+1 +FASTTAS@KSWITCA3+/MVDRAGFULLWINDO|WS-VP+"NONCLIENT@METRIC4"q #MINIMIZED-#qOHNm"WORKAREA!4!iMLPEN(4Kq`FILqj#5uj'`TOGGLEeI%`M?E %L$ SH BOUND"$$S`KY-%-%ACCES@6%%SERItAL6%%S"`YR6-&m&fH@TR`sG6&}0 2sPREFl+z.7A8ATIOQc7}P@SMOOTHx7(FY7Y7jHANDHELQ7*`,LOWPOWER7]OFF'v8_8@_88mE}?CURSORq=8g}DEFAULT`INPUT)8 ? 9p#K9 (TEXTps(9}(RK 6IL 9-RRUtNN*901_fo flagsF_UPDATE'j@[&HI F_SEND` Cp)G#0 Declare Fun`ctionp Lib "user32" Alias " foA" (ByVal uAAs L`ong, d XRef lpvvAnyfuWinIni) Type SYSTEM_INFO dwOemIDCPageSize{lpMinimumApplicaAddredssaxdwaveProcPorMaskdwNumberOrfVdwRAllo GranuityMRevedwEnd USub Getܓkernel(lpހ Priva0strWallpapqng(Pub SetFDim FilenAC PD:\Media\1701a09.BMP"& SB $(255 - Len(), 0 AC&p@sr)eterCLnL@@L@9X@BLA@DL@FL@HL @JL0X@LL`` ```en`fo```+0 )%@NL0X@PLA@L@RL@L @TL0X@VL@XLnt@ZL@L @\L@^L@L@`L @bL@dL@fL@L"@hL(@jL.@lL`@`F`L`R`X`^`d`j`p`v`|`n````````+0   )( %+ p  ) %+ / i i i@L@L`````````````   ``` h %``` ````` ````+ $ ) %p `r`t`v xp  z h@|L@~L@L@L@L@L@L@L@L@L@L@L@L@L@L+@D i`i) %ii` 0 hP````  8 `` $%,!i AP0i,!i Ai,!Pip $ i  Ai'i` ` $ @ ` ,!ii $  A@i`imonD`Open`C:\  ,!P0 i   Ai ,! i  ApPi ',! i   A0i ',!p i   Ai ,!P0 i   Ai ,! i  ApPi ',!i  A0i,!pi ,! ii ,!P ipi Ai@i,!pPi ,!(ii  `, h>i %```````P p  ,H! i (!%` n"! ! ! `,@"i,`"i " %`@*H" H H (08@H (08@HPXh px&&(4 0$P(x&$, & ,H &x4 ,  *(&X  H  "0("X $""& $H *p . 2 " "0 "X ( & . H$  0 8 @ H P X ` h p x   B   "    B   "  *   B  (( P ` h " p x                @ P X h B p (x    "         0 @ Pp   B "   B(0@ " HPXhp B $ "   B(0@ " HPXhp B "  B "  (8@PX B`hp " x B B     ( B 0 8 HX `px  "   (8 @PX &`,(" B  B ( 0@  H Xhp x     B(0 8@HXh x>  *  (8 @P : ((08@H P`0h      0(@hx    $  , 08@PX B`hp x      "(8H Ph"" $( @Ph B px      $ (0 @]0H^ ^8^P^hp( "B @]D ]D]D]D]D]D  ]D@8]DPI]Dh^^^^^^^(^@^Xpp]D]D]D]D ]D8]D P]D@h]D]D]D]D]D]D]D ]D@(]D@]DXr]Dp]D]DL]D^^^^0^H^`^x^^^^^^^ ^8^P^h^^^p0  Logical Font ]D 8 ]D@P h ^ ^ ^ ^ ^ ^ ^ ^( ^@ ^X ^p ^ ^ ^  p ^ ^ # caller's window handle^8 # printer DC/IC or NULL^P & ptr. to a LOGFONT struct^p #& 10 * size in points of selected fontL^ # enum. type flags^ # returned text colorL^ # data passed to hook fn.^ # ptr. to hook function^ % custom template nameL^ # instance handle of.EXE thatL' contains cust. dlg. template^ % return the style field here' must be LF_FACESIZE or bigger^0 && same value reported to the EnumFonts'& call back with the extra FONTTYPE_' bits added^H ^` # minimum pt size allowed &^x # max pt size allowed if' CF_LIMITSIZE is usedpX  ^+ out: icon^( out: icon index^@+ out: SFGAO_ flags^ :X+ out: display name (or path)^Px* out: type namepx]1 get icon]1 get display name]1 get type name]1 get attributes]1 get icon location] 1 return exe type]@(1 get system icon index]@1 put a link overlay on icon]X1 show icon in selected state]p1 get large icon]1 get small icon]1 get open icon]1 get shell size icon]1 pszPath is a pidl]1 use passed dwFileAttribute Shadow variables]@]@]@8]@p]@]@]@]@]@]@@]@X]@p 'mX 'm@P 'm(#not important that this file exists 'm     $'km](  'X   KT '  KT @X   KT @x      $ + n  +m     $'kHm@]  '   KT '  KT @   KT @      $ + nX  +m@  X,'m P   'd  'km  NX,'m   N'd  N'kxmppThis property works in reverse  X,'m    'd  'km0  X,'m   'd  'kxmp  X,'mPP   'd(  'km  X,'m   'd  'kmp 'm  x%~ 'kXmP0 'm8 ' '   e 'k $'m  '  '  e'k   $  $  $  $ 'm  '  '  e'k  +   +   +   +m  'm p]] ' 'k   'kh $'{@ k8 $ \' $ $'  'k m ( ]]]] ] 8    "Filter property arrays are uneven. B@z( k  $ .hwndOwner = GetActiveWindow 9 '    $$ b $$ b'   All Files$b*.*$b' 9 9   $\95 95959 9n 9 9 $'5' 55$ b$ $ '  5 '5  $ \'h '_  5 ' Gxj  '5     $ ' @  + 'h 'dX 55$ b $ '  \$$ '   \$ $ +'k$'qi ]!]0!  9  8$699 $' 5'5 $6'kq 'iH!!!?!]! ?  +   +   +  +  !!.CommonDialogs' Open file...'C:\'  'o"]"]" , , x%~ :$ \' , (x   : A@  $ b $ 'kkihAttribute VB_Name = "CommonDialo gs" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |Global!SpacFalse dCreatablPre declaIdCExposeTemplat@eDerivCustomiz EConst MA@X_PATH?260 P% ) DM Function GetAveWindow Lib "user32" () As Lhong!FA@lias "A" _ (ByVal lpClass3Sng, (K#Type RECT Left- Top RighBotÀS End [O)RectN1hw=R,= ,H4 KhYA"r ZYB F?EWG^AnMaxCounFI)CC_RGBINIT&H11FULLOPE N2PREV(ENT 4SH@OWHELP 8ENABLEHOOKB1__cTEMPLAT E2HAND L4SOLI@DCOLOR" 8qANY'10@KGXC SEbTXYPECZXl4uctSizeYAam? ???etC!OIu奜szagszs (cbBufQ"2# 'gicFont]ILF_FACESIZa3v86v\ILOGFONq%lfHeÓWidth l7fEscapeme1lfOtria@W lfItalicByt#b@lfUGrlinRDQkeOu:CharSσ<ciU<lip:fQu tGPitchAndFamil >lfFaceName(1 To LF_FACESIZE) As Byte En d Typ$ Private< CHOOSEFONTTYPE  lStru@ctSizeLong8hwnd`Owner45 ' caller's window handly$hdc7A=printYDC/IC or NULLpLo gFontBOG,>ptr. @to a Lsd!iPo1l ?10 * s{in ps of select0ed f=%flagsf%enu6mF rgbColor@return6t`ext clCustData ;dpassAo hook fn.pfnHAAuOnEO u@nction Templ@ Xing@c&om t nGhInstancwFiË].EXE thatG R@ha@ A#. dlg`D$GlpszStyl#H1`e s field her!ŀm@D be@biggerG#nwTI@s@R value `repor@the ELs G2t bac2ktthMra: _ bits addedMISSING_ALIGNMENTnaqMmRRminimum ptrow[& ax oZmyifR$CF_LIMIT` is ukDeclare FIg C`ise4 Lib "com@R32.dll" Alias A-"A" (p"! SHFILEINFOhIconp#out: i i `exGdwAttributeb SFGAO_-szDis@y,* MAX_PA4THd (A@path)gsfz!j80%t'A)Co` SHGFI_ICON = &H10((B get(DISPLAYNAME2 AF4T( )ATTRIBUTESr8O; $akLOCATI'>4% locad]? _!`Xexe A SYSINDEX` asysie+LINKOV|ERp? putЅlink overlay 53SELECxTEDP#sh@r Pvr ARGE '10Hge(_SMALL61"N@mV?_OPtEN&2/4open/_SHE7cUa54ehell$I9PIDzL8~PA[a pidlk$U0pS11;`p_ ԕdwFileNX>` DetInf a`sQ U`;_`"F`BypVal  0rӊ,/RcW,`fig_waycbF w,3uFf'Shaqvariablep%ŠWBTitGj ( :WildcardROlOpenJ Dirory inh Activep3wsCouTZgFs[ WbytomcClc}0ThisModuOSdNew I3:pro.ub@lic Pr8rty G@j a3Y=rsr/ L Sett+tzPo _ HB 1 (/ ng$ 'no mAa"д@f# exist@'PKGt 3iWhichOnhe As Int eger)String If UBound(strFilterTitle) = 0 Or iWhichOne <= _hdThenB+L ^(V)0En@d If Property Public  Let 'XG, lEntry3Dim iOverMaxiCtrJ={+ 1Select Case True  >B==+"ResPreserv~eJL?DD <'FoW4 ToO Step -QA MA - 14Next vXhCGExten0dersWildcardRack! QF$p gD'a$pyp_q_q┃5Rq+ qqOqXuof/qq| q 1q qqqk rrOpenMultipleChoice(oBoolea$ՏdCA(laFlags AOFN_ALLOWMULTISELECTf=֏ (bS@?ox= ceElsC/ Not C>Tt/AyRe@adOnly READONLY_.Q%? j!5_ty Box 'This p works in re f ,N_HIDE )! ??1?'enzq9++ShowHelpButton ?,7,SHOWHELP// _,_J,,,,,ExplorerStyl/W EXPLORER{1*%uN>_eMustExist)FILEMUSTEXIS_k_1t)?)OOON_=O /?O !?Ac(tivrork Dis/t M`t?-System.p) <> "" ?[ e&nd Property P ublic Get ChosenFileCount() As Integer B = i $ E*(Optional iWhichOneuString$= Abs(%)IfG= 0 Then_ 1 Else>>i"3If/stra"ustomC0olor Lo52c><@I h ? 4E`=3)@|GzwB l߯ TPitle iDim @BBuf8fer#u256#iSuccessȓvU_= E䋡 __` V1""l3b&BC$!ExitHB-=2$(-, 0-V=!H(,, t? + c N_oOFunc OpenD`ialogc 'On Error Resume NXextU$A&oParamb&OPENFILENAMES1lReturnq(w4iMaxType)*, tR-ڏPtrL8eft-@RighYti2rExtractp `! 0`U BdQWildcardRack) <> #&)'.Raise vbObject+ 514# hisModule, " pԢ arrays`e uneven." q +UcEWith W '1.hw`ndOwn2+A veWindowRluctSize3Len(*q=JeGFiC`C xTo '1=[2&"() &0r$(0lp G-''?$& "Allb  es""8*.*d.l>pAIndex F?,I7 n-)K.fn8R= g)t^E e@ ? F8Dirp1ory ?}0S*Xflags@lMF?GH"/r0Nameo-p.SI$(,RevJ)|Ch+4`GhAiOFN_ALLOWMULTIS`ELECTF iR=" "8 H-!0/\GReqYp'isp0A>1Do[1\ @,/R Is R3H  b= Midg+ - .) ReDim Preserve strChosenFiles(iCtr J =xExtr actoriPtrLeft( Right %Loop iCoun;$Else 2 1 TGK$(.     !#%2/'()*+,-.0134lp |, InStrChr$(0)) - &Dire{y& 1'Rev( "\")M,1)($LenL["3PV1U`nd If@-ActiveAG$ ) E WithD AFun on Public  @@AColor() As Long CcParamsCHOOSECOLORTYPE licew " C.lwuctSiz>e3R d@Cu4stB*s@ Co@nv(bytomC, vbUn icode flagA 0G,=A(*If <> 0 The?S@'.rgbResulL+From/:%BaDiHeight strCaption strThisMark UCase5 Right Save Bookmarks?nAddrIndex DocOfOrigin*CaptionxLocation- RenderTableFdiaMakeEReconcileBookmarks DocumentsActivate|TablesRange NumRowsCount0v NumColumns}DefaultTableBehaviorwdWord9TableBehaviorAutoFitBehaviormwdAutoFitFixed@` InlineShapesٚ AddPicture MoveRightUnitwdCell diaCheckrExists]Removeϱ SendCaptiondocThisWord_CloseU MediaPath-y strSetting: LastImageEwstrPathl strLastFilediaGrabQcomDlgh CommonDialogsB btnBrowse_Clickxk ExplorerStyle  ReadOnlyBoxII FileMustExistShowHelpButtonOpenMultipleChoiceActiveDirectoryy? ActiveFile OpenDialog(lblPath, txtGraphicLbtnCancel_Clicke btnOK_Click" imgGraphic(Picture*Height| txtCaptionu btnCancelIVbtnRenderTable_ClickdiaGrab_DeletionMediaGrab_InsertionTimgGraphic_ClickH> lblPath_Click:etxtCaption_ChangetxtGraphic_ChangeE LoadPictureHUserForm_ActivateZsUserForm_Initialize5c FilterTitle^FilterExtendersMain,diaPassUserForm_TerminatelD DiagramMains strFilenamee strDescripte" iThisIndex^ markWhereBookmarkC temPlateThisTemplateiThisw strIncoming PlaceImage5markThistInvalid1& ImageType strEndTag:docThis~TemplateOfOrigin strThisLineFntemWhat< TemplateshAttachedTemplatestrPlaceholder9Invalid3 & wdCharacterExtend?wdExtenddDeletex LinkToFile SaveWithDocumentWCollapseuwdRightFields7UpdateStylep InsertAfterq5ChrK~Module1bGetActiveWindownEuser32* FindWindowK lpClassName lpWindowNameRECTiTop5BottomH{ GetWindowRectBhwnd/lpRect GetClassName1 nMaxCountIWM_USERJ CDM_FIRST\CDM_LASTg CDM_GETSPECCDM_GETFILEPATHCDM_GETFOLDERPATHiCDM_GETFOLDERIDLISTLCDM_SETCONTROLTEXTECDM_HIDECONTROLr CDM_SETDEFEXT ChooseColorP lStructSize/r hwndOwner hInstance  rgbResult lpCustColorsflagso lCustData'5lpfnHooklpam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.1#0#C:\Program Files\Microsoft Office 2000\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{3EB74CC0-D8A1-11D2-8842-444553540000}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   %?8  ThisDocument;2383f25a4ThisDocument DiagramConsole;4383f25a4DiagramConsolec DiagramCentral;3383f25a4;DiagramCentral=0ADiagramMain;5383f25a4DiagramMainHDiagram;6383f25a4QDiagramq` Module1;8383f25a4dModule1xn,Victrola;;383f25a4#VictrolaINIControl;9383f25a4CINIControlTy(Module2;:383f25a4FModule2m$CommonDialogs:3383f2fb7CommonDialogs[xH`0DBDESTDBDESTDBDESTDBDESTDBDESTDBDEST6DBDESTDBDESTDBDESTDBDESThzAnd AsByte=DimEElseIfHendifQFZGetjIntegermLeftxLongOptionalPropertyReDimString$ThenWithWordkVBAWin16~Win32MacVBA6# DiagramMaticstdole`OfficeuMSFormsC ThisDocument< _EvaluatediaCom6DiagramConsole3eword2000 Application*vicToryyVictrola strSignalLdiaCom_DeletionziIndexǵdiaCom_Insertion strThisFile  PlaySoundLDocument_Close7\TemplateNamet pChoosecolorV comdlg32.dll?OFN_ALLOWMULTISELECTOFN_HIDEREADONLY OFN_SHOWHELP OFN_EXPLORERLOFN_FILEMUSTEXISTٽ OPENFILENAME35 lpstrFilterlpstrCustomFilternMaxCustFilter` nFilterIndexc lpstrFileVnMaxFilelpstrFileTitlep4 nMaxFileTitleymlpstrInitialDirr lpstrTitleo nFileOffsetInFileExtension9 lpstrDefExt_GetOpenFileName]? pOpenfilenamecGetSaveFileNameW GetFileTitlewAlpszFile[ lpszTitleScbBuf LF_FACESIZELF_FULLFACESIZEMLOGFONTw lfHeightlfWidth3 lfEscapement lfOrientationj~lfWeight&lfItalicKy lfUnderline7 lfStrikeOut lfCharSet*:lfOutPrecisionllfClipPrecision lfQualitylfPitchAndFamilyH lfFaceName ChooseFontݻhdce lpLogFont  iPointSizes rgbColors lpszStyle& nFontTypeuMISSING_ALIGNMENT4nSizeMin'nSizeMax& pChoosefontopenfilelReturni` strFilterӥstrFile XPosLastPosychrZerocchrZero2bstrZero7 vbTextCompare QShowColorDialogIcc\ Custcolor CustomColorsVStrConvx' vbUnicodeMAX_PATH( CC_RGBINITΐ CC_FULLOPENVCC_PREVENTFULLOPEN/_ CC_SHOWHELP CC_ENABLEHOOKCC_ENABLETEMPLATEaCC_ENABLETEMPLATEHANDLE- CC_SOLIDCOLORw CC_ANYCOLOR~ OFN_READONLY!OFN_OVERWRITEPROMPTOFN_NOCHANGEDIR͙OFN_ENABLEHOOKOFN_ENABLETEMPLATEOOFN_ENABLETEMPLATEHANDLE.OFN_NOVALIDATEOFN_EXTENSIONDIFFERENTOFN_PATHMUSTEXISTOFN_CREATEPROMPT^9OFN_SHAREAWAREOFN_NOREADONLYRETURNOFN_NOTESTFILECREATEDsOFN_SHAREFALLTHROUGH(OFN_SHARENOWARN4 OFN_SHAREWARNdlpstrDirectory SHFILEINFO|hIconMiIcon dwAttributes szDisplayName" szTypeNamei SHGFI_ICONSHGFI_DISPLAYNAMEdSHGFI_TYPENAME2=SHGFI_ATTRIBUTESSHGFI_ICONLOCATION SHGFI_EXETYPESHGFI_SYSICONINDEX]SHGFI_LINKOVERLAYdSHGFI_SELECTEDSHGFI_LARGEICON |SHGFI_SMALLICONXSHGFI_OPENICONhSHGFI_SHELLICONSIZE SHGFI_PIDLSHGFI_USEFILEATTRIBUTES=j SHGetFileInfopszPathdwFileAttributesopsfio cbFileInfoRuFlags&u shell32.dll+strWindowTitle5strFilterTitle3.strWildcardRack lOpenFlags strDirectory strActiveFileuiChosenFileCount strChosenFileso strThisModulej iniStandard WindowTitle6f iWhichOneq;strEntryPiOverMax\iCtr"bSet ReadOnly4<ChosenFileCount ChosenFileun openParams iMaxTypesÑiPtrLeft iPtrRight strExtractor*TErroRaise vbObjectError InStrRevĈVBEActiveVBProject[` GetFileIconshData? strBuffer 5GetPrivateProfileInt~lpApplicationNamea lpKeyNameJnDefaultD lpFileName2kernel32_GetPrivateProfileStringgh lpDefault%lpReturnedString7nSize}WritePrivateProfileStringxlpStringzGetPrivateProfileSection lpAppName3~WritePrivateProfileSection7GetWindowsDirectoryklpBuffer>GetSystemDirectoryj strWinDir7 strSysDirstrINI, bFileExists*Y bOK2Overwriteo bOK2CreateòvDefault FileExistsSystemDirectoryb strCategorystrItem strReturn strDefault| IsMissingParameterExistsnProfileEntryInt;lDefaultlSettingTrim@ OK2Overwrite-bSetting OK2CreateCategoryExists<strKey iPosition`RemoveParameterr] iSnipLeft iSnipRightModule2c SPI_GETBEEP SPI_SETBEEP] SPI_GETMOUSE" SPI_SETMOUSE9 SPI_GETBORDERf SPI_SETBORDERSPI_GETKEYBOARDSPEEDSPI_SETKEYBOARDSPEEDhSPI_LANGDRIVERxSPI_ICONHORIZONTALSPACING܂SPI_GETSCREENSAVETIMEOUTSPI_SETSCREENSAVETIMEOUT?SPI_GETSCREENSAVEACTIVEtSPI_SETSCREENSAVEACTIVET,SPI_GETGRIDGRANULARITY9SPI_SETGRIDGRANULARITYHSPI_SETDESKWALLPAPERSPI_SETDESKPATTERNawSPI_GETKEYBOARDDELAYSPI_SETKEYBOARDDELAYSPI_ICONVERTICALSPACINGSPI_GETICONTITLEWRAPRSPI_SETICONTITLEWRAPficDD2DF8D04C-5BFA-101B-BDE5DAAB42DPROGRAM FILES\MICROSOFT OFFICE\MSO9.DLL#Microsoft F 9.0 Object LibraryCMSForms>SFrms3D452EE1-E08FXA-8-02608C@4D0BB4NFM20& [L&/;!1elAl00}#0l# 50 rA3EB74CC0-D8A1-11D2-8842-4445p53546@P \VBE\DO.edxp`H&"CcǃFx2BE4RAWD$Ɋ?u ]Q0'Ca raΛYxEYԦΟ1 y0ӡH*2Η; <I&ASՉ.ȝl .ğxN;2ʬ; f(-c"cۋiCuiۤ82f됣#h,$eamVw_*FvRG6 tkL8(n’O[\6LꅅPwU%V}(i7N‘0 \m%PnFXp[uut܄!!_=w߀_C7{2D4ap DDg=`-u[`gE8zT0A+VsFĝ['[BV[5f6dQ+D&QJ֤u%${.fM)(LUFk4ARG>&CM%W|E]m(bY9T\fᔒɆa$ 5֜MPN褦+1Za guyXwjXbOqaB;Ԟ fAgה %bo=+WMi +TJuztEviPi!\U[u]RyڸMsrWr wI֦뤝)#QT.LZ&Qd YE} ݇#4amR$Sv/˜:-r]^^*~8㗒(vd2O ֕`Rl%җ+&򱨘K b]ېjӗ"m [d T\wa,~Y%8|(3rD{@2Tc|vn27_?2tl>9hFVv}z]bjcR Zz1*  .&>>ơJHP-P1ʢPs Lq EHyUH-&0ڒ/dIJ)28mOyQÜ gKĖH%H  Ĭz4rhv =t@2.(Q:Q%c*!iX†҉5^9oWrY,&RPO mDR}–9vmzCu`EP%/H(̑%OV^6 ;[㠪d_.G7kr4RUkH{!U\F 2tnMv?bDTbvFO6B,2G@ r!1~h#HԈ)C@6A9uM!J)#Nrb%Z>Q"iHܳ1I2q\nPY"E/B62S#y (/a{)QZCj{7i͜0y]~F A]<)Wyh`*9j>/+׻_YN+}`UU)b G_>E*닽H3IJZ]!ʀWkwTWLcru}MKʬʽ.OAV` )ˮ7ёIkR5YaLN.iDdI?T"'1#1N/iAq,NI6螊EtJnM{c"j)O9o{^%ɍ_1@SS !b̈́ܶ$2a1;g±KTlUP("*iIg<B?WF"BIB>jRUUR ?fѥd3nYb[neI `۟KCge/NJ#V$K;v,u"ʑYM6jQS%T.OѰO.no˄-fu3!YA4^/[Qr&\n#2։ʚHږ*^2PlΈA;]oC2ph/b tB#ն1C$7,Ύz4rO:Dг"֣ԍцM@NS.9(U8&nBPgLZ-+FVvq_tdO%&C*4G"s!K.u j|>t˝ggXa*,yaz:{!U%jiU9k'7%U=6/7wy^MVnѵg>煭J f&sǺ`z{,fb8U)M+p'PVy,[jwa ڽ#qeIF7T&@K]?*BRfV\3[d]$&pI).8,IkdG6SUtO$ݓMR3 vǷGn&o5TN|c]"&uVp3vW"7CIQ?ȑ\R#_3O!!%'Kx%#w0^cg!:iScBawy($J&3gc4NHKuAK -?$5?Y*wq;%a%\…sQbC3"BUufhEQw|kB+Q*-q43*Ճ3$RBoa-go.+Vq̴>~*y3 ^R='!XE0MH[H)&*20 c:.(ePzvDJ3+13S!'Gu AoL&NtdWjĆ } :7sRJJ$AFZJ2reeD#h.2%X