ࡱ> JxRoot EntryRoot EntryJn@xDEST:׹K8CONTROLSAVESTREAM$ yzvxGrid1Storage!**`9׹9׹vxData2Storage }Es`9׹9׹ M  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHILQNOPRSTUVWXYZ[\]_`abcdefghijklmnopqrstuvwz{|}~vxList1Storage ?Tr`9׹9׹ComboBox1Storage"0ҋB `9׹9׹vxData1Storage }Es`9׹9׹MonthView1Storage$ jE.#ÇuM9׹9׹CommandButton1Storage,@2iwn>>@A.AFANAzAzBB>B_BBBC0DzDDEhGGGGG$HHHHHHbIZJJKbKzKMN"N:NBNNNO2OSOtOOP$QQQQ\TTTTT U tUUUUUVVNWW WVXnXZ[[.[6[[[\&\G\h\\]^t^^^Pa|aaaa bhbbbbbJcBdddJebegg h"h*hhhhi;i\iij khkkkDnpnnnn$o$\otoooo>p6qq$qr#rrs$ znsst|ttuuu vqviwwwwbxZyyyy ztz }Y\}t}x}Y}Q} ~-~N~~~~,Thƒڃރ jjÆ7:R~{Vjx~{~{8PT~{~xȍ)~Phl~Ȏ!9=~ҏ h Jbv+CG֘lژ Ejlf~ol؛ܛlo8EjPqoלoOg-AY]Ѡԣa /_a|5aϦaG/__ߧ[s/C[cW3ӭ)AEʰްVnFqGQNGQ1RҶ"OWGQwGQSN(gSSW9W^vzWֹ~ҼּWF2JfWۿ88lp =3Kc+RjY9n6Y93SY9Y9 =n6 =/P1bz?7 #D~/Gh8YaNEjxaDLlLs/76/_Wophpd|d02JNbz +2:Zrz2J(@H )=UY3w0 B3Z{ -QrjBb8s'f;Fm2 * z   % = -Nn ):Z'Gld 8"'"H""h#### =3 $$$&&&'0'P'q''(!)W)))0,c,w,,`,,-$--.. /;/S/2B2c223344FW04H467:7^7778/9e9S~o99{<<<,==4>>>>>AAA=BBECCCCCFFFHGHPHHHHHKKK:LLBMMMMM0PXPyPPQQRQTyTTUU V"VrXXX!YY)ZAZ ]1]R]]r^^^^_)_ =3`FWU______`5`Q`m`````afaaaaxbccXdde8ffxghhXiij8kkxlmmmn'nnnnooqq r_rrrsttu:u`qp!ZQM"ѬZ9b W&P!YX[PҌSGNDt6WuN:Xg0 Ilk8?BR l‡ qZuOZ:@.&7P^DH,Lw|y"0g j?1Zq(}l' 46 <(y:B3v!a'KY?PӔ< tHt7N4|ƅs{7(ӵ-b{j/oW9dW=-r*=+dSxi~^}]s ?@ $d I39iƄaM6ay(3οBYׂ* [Ѳo`!Wľ!U /> kOF`1}\n7/>t [>s--}qߕ}N9`Gf_}n:^K!| t  g|p\qXoe: pp1MXmeUsDxyI萹͑$"{QAj@7@6p'1'3DtcW>0 Plz! ڜwY\_8 *+]7z9 7hHo7=%|҄>i @|6%DN0lt&(]3ЉVRּ T{@){+95o3ࢊת~I7kb钷/ (.e/ٲ[6>,{^QrBIRe~WNal/cZതm^ey"AK49ղDXʞQ^d IN u`5W-{or$"ZmFqu}< <S K'D '_Ԍ?#I@W ̈14}<0F| YU9("j.fAd_@So:SXLc I&o]nآ(l+iC{ !!i_s{Ӓ-rفZ,0cA:JXXmvgs_06bNݐcCQ-rR -ٿZll"FɾSX.Rbxc#)8 Cd섗7j)6_;Izrguk%|l.lAy,~-\)EIB`2  x8Ye\@??wB"s8ٓ9`.Mdž@4HڽAo [ЉI7$cTs:oAw/T1 7%DcGw Ie&ॄm2cRMXlVP7r̅侁nb ;o(.Pk(]TC '<BP&'()FPx/8CgvJJ1qц~x PA~( 5&Jd354ǂ,HX?5LHJZ{ ׻ GYr! @'^AqD(jq a%Px@;XQ' B֤ x`(VOxͻ1G!IMyVIdT`$8)14UTLʍeWHL;~N:ׂ #9-@xcEZ. P?,Y{RA?@u8,/yөp8|~r~r"7Qs-/EY xC.|J^'o 7rœ)ߥcY18Ff&fN1o`MW\js HɧNa- AHkD1XӇiMAjܒ1"Ґ#xqg1PA\̃.wS6 wD߳AN9ߞˢpG'<!-z)ڀ p7<2c;A%5LEh>[e H 7l 2rIlzaj0D2?wѠ6o-?|æS@&~1-Lo).5{?MGšqvQ5eȈIybdxՑ1fut"uTM@a#16xk>똾ԭ`yфHجS-($<Փ:ti^IPG! ]8TM\E#7k:rpcO72.7f%Lw Ta4IXZ%V6ki:%odWgоBa -cH"-<H:cߓgTD9hPEo9C"@W(T` \ ey1u92f2la+@"_@bULGhHJa)j&$Qjs"-1Yfpnp!'$HT$`} TM -1A,@%L X R cę;?n'c~?X80xE3`(U#E7tФq+Uܰy y"y!aր8#M؟7P"'n|&͘dv(ZĺYrTAyPF$@ ,<Qxq,w PYPް$27nB 1V/P@64 %$ E$*@x8A`H,,BD9? )Ri1"@O[RR6;:1':ar!i\)3gN7n$RViI1i(%E؄<d@2\WҀimqQ:Q\߼j jiVRh2f8 1X$ p؄48}+b|-cNN"CΣS p H&|XA(uBD”A9BB1H&N(i D#n(@a>dCRO(x|+l)bO8zY 9S AxāhK_SL"S9`0QeorD"␠}g cCܙGn\=~ % R8?զq ު ca>Ex;*7e@Q|H?@rǠiOAbE[{ ('2L#ۂ\8"4ɬ7,\-E l[Ȅgimhɶ O5[L?/,b~Oak ~(ږ5C${25($J$Ŷl<в-d%+;Dl &ԲL&mi&[<@OXh[cҾk)} ih},xIؾxG{:mD}|= /E5 J>)?g֩C Tsd4E}Ja$m Z$ۇkk8Bؾ i SɴJ>! n i۷SJH$1??-FLG0Ԍloخ!oؼ#cDV~y&u܌j no/?fO>? 5kW[#D]@>?` RSԱT\/d@Xkuse41Lc @ 7R1)  _ vpo iKv)xUApٔN$c >~h/hD 3 j$ 1Aa4G6-QˍA<@I@[d8`ET)? c ~c@WR(Dς@ͳ''a ㆌ2cܰIa^wLA;etdHM𔓰vad'< y : 2ӛKӖ{oڔro9|1 3!S8wA43ls2n]<66@ć`GwmC`,A0 9T: TWܾ!aÔ xy,Յ /xy={T=d.˽aO ȼ|;XzM4n@zjqs[@b^˵0r,YFذ1'E/Iܘy^@&!˵|Rpb›9IQy9G"r){r"r_a00Y{z ^N!̼\S@R< /A;1)/7Ȥ ,AB(@'. TE2ߐЃgO?O_ /I(VB3a8.xy"7B[m^>}/z^1kf 3CT6^ ^Tqb)6ܤi`8^~ "r0mB7t+sq #oJ/yVۛaGBfFɛ1a/ǥE!yR^2l2Q{<ѡǧ*"/qѪJr*da-x90roܜuruB#VucP{`Fd/d҂RQj9ڇi,,/xy}/y^W,/+ӱ6^3y9[!:6r K|pE'B2/_;C)b&K99 ܼR-K fGʐ/F)ˑ!COaKrrQv^j*0m$/N< Rh\趣h:sEr؊rN"rf_(ۊa00Y{z ^!̼\7kHd^n[r>wA_3F^ {p-1 $] F!ˁ xybwA `'@'^AfPGR pV^^-| 2yyyyO?b0f,#Orxu޸x^ABӐdÉdE唙%x9pqdaa0Dyy[-x9irS4-"/fn?=2QCf3(8+x~r~r"7cx9L5JBܝéFw!1R</C:/&Aa /ǣ-fF-rT"rtS,l& y 2BCt _("ly98^ [lo/0Y{xy= /G~^RbHrn1aP g7^_3|?vtsR]ri|gO?O_ԛ6~o]Me '\=~H$1!TȀu7TƒA$>+".%8\ 2!Eu7:_AEa>}8Bm!Â4G_"4vN"OB}Zn < Ov D4EY!Ӟt^ ^FDRV'6rȌ)Yph;w"?ņC zGaeq+|2Bȇ?ͅ_t""o^XPp%OC#ĺYr(HT`BP 펇9(7O {"La Qvj N?䄢U':o+NfQR%%DmKْ^-APQ+ 'u.b UBxsqAKGWDtL#D!fļ6r!e:v1 'L>l$zU{6n1`7\OK Qaq *P;.22Ҡ-H% ;x!o-HdRc`B,’E 6=AЌgMs CIhF5Djw#7o޹yYh5ZuO4#boj_؋ugUi->AE`>3=#q"=@_Dzp N(V,r4x8-=VAj"'DJ'dBƿ9c wrP4nʄ#"j/0&a{Eڢ#ضᒰw1շX-ԡ]fa4}Žl0}y;9 qk;TwBX{ODwT R|-}Zl"χ !N1Fr#&ptc%bfb}O? D?uؼź\5x{<X æNl@LSЗ B{iv"06+>bl/qIV9&&E8 x'Ra1}b% ]GIf4aa_؜X'_/I H]ԏ KM{]U%k4u*,畴kAio0o$& )9@ AXaTQX́ޗ@A"ҷ2|r%& 7P$߻I1/ơBĢ6pMYcuCB2Ρo$OdаqC`흡94 VK>X:.1/ա]fpSIkaJ~>Lwҡ= O?.BáQc0TP- C>l[G uYAa*mp,ޚE%fH߼7b )6H@7k_!5`IoFHO':1>aK㾹[`4R\0'z'a7UF c0 QH/a$$vSẂJ8=:.㾸8@qCȑS ]ŝ_0TbϠE%Zp!,/fӵf0'1銅9^0 *: x%:j M B #alr}/6"D'\>ʅ<*-B_?P ߒ+daSBHla$d)xIS09px 7CY%!=;ea#!QM@XA*1ρ$$ł d"$$I⑁@*Tg$# CXbE*RJ6e@0$;곧M2c,F0)kN!RvU&)!:L:@-Tai S6? `1:~! ‰Eaw &sSap<R:҆ pZXKAQd+$@zUa2'j~[ZD tOڐ6Q>Lnx@>;Q@6C00U UcCK9MU-L :GBtt}t`"r!$2l97~!z^Cۊ [C}9`b+ v'CJ{ Ч_P "Jt:Fp5t5PJ4C :@+)̒KДR2;`N?CtT@8v&cA@Bp ` @0 ->"Øb Jd$]nMNd !MP{mUq:ln%@`Xʼ2:HsR[T$ UѼPl adBt&Sv0r~r~r Āj!AH\}/&\@!C!%ΡzlG3cGPE"%̒vTQwIX`="@C|G#XP%EX)b82'kLIV`IV`p%k3`@ JZuAG*RxCc 79Q 7CbTM3ɍP4@W+` ;lJ˰@UYRdF#d^fC]M߃ ݡGGWlNgj68p%.f+@ ;@3+ DxT,1ᠺavh" FWqSW[.VRۍ楽M(ٌ[<(pRz+Í B]AU>??9ao~`oc/:Ytg7r*؍ D )23-t uJr,2Ϊ?9q~6V|Aae!c:B˪Dg`]b &9Տ$3  | CDŽXB #5[Y{wVJ0[<(piKGG\dՊ RaK !bvJ< Ê%Esm}NRb$uAE!VE0uKh+Z$ǘ5 c*a0I3ظspᡳDcEQG9 KqΝ&&7 e?渜Š-pUTh.c3 nFZ{׎4lƯbElVƯ_?Atlx%k$ș* *4QKQۓ!3aр^T}wƂmuڷx8(vI6e$uwYֈettr'e(ͬ JcpE*ʘxrS-oO#2ΕN/)qNߨXpK:̧Nf|瀨Ӱ9M^j؜"T^( S]~ ϔN2qw{q" D)Ğ=[.Pz<`F+ .SV$H݈\BBFiTCкvб>Ua2 SbIh18:ޡK!7<T.bաq#z 2ashɿ䅣gk!awh X#IvI@fQCZlg00=D k6{nd0K!dB,$\P8I P-qQŶT.ן \<0@&)x@8J @|F%DN0l4\D5Wa hE.5YO$|Ͻ9KJPD/1vݟB昤qv+OyqY͆$օiCn"Ţj l|"'u /x])A;otD$ݗ]mkiPQ2am!ޚ,P5ΈW u' LG_!C ^\07Bz@?(9 (qM&t?qOփ/ !Dg .c\*.SkjCjJȣ ٗq*1\ bH9rʸc% :eq&bw}E)bTSe\12:s)&$ /+U炰,"P V&Y:Mcz#ט y” /zQf B}1+ S|ΐ7L%~Xmv9G/l{}/;b%6OA2 Rv6Q'hl$$2}ZLhQAC$/Q_NڿΈ Gǐؿ#Lk9 @ItCV^rEHtØ// X9vAI84SS7zk,aBp~%8b>7XxE伹ЧNE0uKhswhi ǘvx<7L('!57dl,bdnU&&ܖ]WC k  W9*Se,ƾRUJN>IPH5cF]o%Qe4*\ :-UZpv1B-CLFNX]13~?Az((4sҌykRK8($ "PRTE0YaL G{j@# Qaަ @tLU.8}?s3"l ?I"p (ן!!@" ȵHGp wq L̡]l@>m$Pb"h6 .Ͼ~!JMMx<%(iAn(qP(!Sbr+%pQ -)/k %ƄHl6O4:͔AؐORb,HgĖ;HVJ_p9d'pEJLeQ%=%Z,SEE1xI-[2\l3Y{uE5UH-sE|2 0ud7/.$i: %F"Hl{yoPb0:H[$P]Tϓű$pc6OŇ$F̐0laN7n!SRx3IljN-k-U$L+X2TŤ/XS}!ۈIuc}0b7藀L_@jȐ "R@JHLߨX݇a tȼ;,?:#ްt UMv Rtw=A$-8NuCh#La:Ph`zF*bJ%alu}Ko2VA(դG-`uXK ЄFpFA c#EZ^n,>TdȘp;Wg[B҆ W8ܙ}Z12f~eAI"Bpu0Ч@AJ%ZĀ1DPGWည<;#/ 0oa!#!bq w#I!!crRXWxߦ Rҷ 3M1oc 18/aI֓fq\$"l0H* dPF8t Ն1l.,Atk%|\)EIB(E.8ܚ^o9 TCfP\ `!}|޷̘ EiC$ ]K/?x aVI3Km.R {zߙBb !WqæN74qN%ZKaƙ8LX 3Fν,QYB%4:BLXg.sF_-B)(M9+]7zhHH +UK/(Sz#''ƀ[UB"D 3q{|}c>QQpx~BV/נL60:p=S4eZ/k*ǜ]5&1u/XUcX RoD;1n Pߥ P \?@OT[(7Ikz &kP@ɱWR păpu~AA?׊ ejk p=lc \+SA(b+p&4'| +ZfI{ 7[M '88{~r<$ A* r%PJ3 iSF@rd%dBDVap bP#Ҵ1nYFSU/@aKe:eZԈhD~ 2q Ro8eɓ "H3wpYy>ɟʘ%)B&eU!r)_~JǟGVY=(vHqY^V f,jF*Z1Zѿ| (@,*5@ `EGۺ<U9>"*ԹF~o³H-:41̳LfEЉZBoၮ‡ `GD  #KEZ e.d@Reƫ 渜Ũ jՄMŭȫ 6_b1:APA`RD_q"g18 (6}ǹL9Я>`_Ds1. TNt+AF#: #"W_?*b/Djng4xP3"y(QD L8-#Y&@̖+E QD".F ;-¢$_uDT> "7tXISNLjZ`{b hJMڎA\{Da1͖ePf̘D ś>􍊕 /\hs1=hR m8/hz$M9X †&5?I "D|RCȑ[ X æNYܾ?>3(N3\0K$KT+HLz+_ TdPҶ"0ɾbs5ٖG1pFPDa!5à):߄ 01 /C48<}?qCW)x?S<:`g$9.HqC4e$4« zRIA>z[ ?*G>i,F_iF[cM>aahml[cO>lk7d@W /#/` Qme;8:\`f"͇;A}ss>^ 5YECVtŖ:<.DToZ+jPXah!:܂ kCS:D ?.PS}!zDĨpxGu.o ?AEFzo,\BY([!ɟ෨}DrV]a1O.׏ B@Gۺ<;+}AuN)BWY?''/B~C?ׅ;._!DEh1I 0rO؄p S輑,-_恍1AF 7h#)2 =FV 1qMw*z߄i2eț6C谑IXF z1bJ pUWet1 "s0" f^li``H^qKЫ#0/~ 4/V< ؚ2DŽCFK#$޵gŕ@o,,@/‹2 G|RBrĀkQ~"@x QaľWdh4/!Yw,*Ћ@uwKikڏzUۏzc tpؘתqeeб9A8(Ei҄Ngqp|Sza*dp#xHb!BQ!$Ԅ@>GS脑C0td0^,͎C@^5 (p𐅶ʫjW"} r׾dE T#J~9F D\,pk!Q@JՊ00IV6VyIBHr`C^"x<`?*h bTC"/p *܄2"Uȉ7@-:HC^y(.jA P5"A0 "Ʉ*N^y%W&ߩ+pɫHU^TÐ&4' ]D-r!a$:\:DL< у\O?/F^a{D,ǁ4=ň)#d`?! p,0( &͜8|2{e>aY"P$,2!,lx0\40<8UDw2CLB, uk2Db?ÀSO W#ev ?1  ]@&u$фCf x;6@>>'`<;"To Ϩ? zA2h9FfDY0֝Pm123!CAP#b&MhN8 bA& @ J rPb=LZ _F-db4}B1=Eܐ%АSr͖<|> qF##A V8Jͺiɬ;)mt My%a+FN!Y,)qܽS ,Cȉl a[3(P (x7M'=-*p$MgNREbd!H'A\@A. i# 1 %t!"pqy!a،& 4oB #~^mKXXsCX=$<2JB*VL/\%ҹCeVIlnED mgyUSu$y!W[)_ ~EB9U'S""3q3{>ƴ 2r.޸iLYU< 8Ee<@:@%/ O0H(4'+&u8eWJzI#5NI$ :4 ܑCDBH @I?''/B~C?FD#d*Et)`Ā!C̾7`䈉cks1cy# ^wQq끬OwGF_(+q ,(F>q#|<3sU۾uґ>CAJj()'Eʜ0;CMEᬯ$+^Z75#"1EQ3"  PЅNb2̂T&Afaw *j<E o! aN$,a'I[KE\ҷB}D$)vPePQ({Oepʽ!aK+;%|:#d)zF2"BU@(: ?9AL(c^LtTGD/ʦ2fP%7p)6v/)HJ'+\Årrr>Nd$1 eMr#H뱀b̔"BYK F(1U! IPNL ڍW&o94H ؼNއgn]yI`3-.K<@J/ rҎAlb"'Rz 4WfLǎdwX~hԾsoh$G@ix2&c⡊?R1Q$7Y&=- &ҍ"JΜnOad:0D)sC"jPXﲒ;#) Uy ?X|P7$ 1u؄P "-JP(ԃ AC;'2@6>(g%a:Ӟpȴ\,=CM{D)Z2mF]?b,/TFŸ%~&~[cz3wF@# >T HMQk~^:C `X}pUcR y~``>K< 0 o  Hq,©;㪝GpX`/lV {PҘ6d3ML8pr0&6.PAz[E<K{*G?G(Fُ@ଳ?SV|i#X7W>* @‚"HJXp_@A$$q(2H/8 kD2f A"_*he6e؜P@PiՊ2` cEZx_a} S G@}akb]'Y`FnMFbq4#a}c&ldܧ&gΒU*ONhNznNBg (#xHb$X! 6@p`s^2)D  aSf a܀Hc$ tœq' 4 ФI3& d6}y nAF jHhᑠIHJЕ L"Am@acBr!!$ ڡLHP$0*W C7~S /AbK<؎D惈(dɲ$V: !1L%M$ OIo U''4'\ rH-uV@ G0HPBH|u@}N_d " #=:iڔ]3r´U]J$wR%!)VD4BFRLS$)eB <))2<b.̒b"xHxIamB \lMyA&j.Y& \-waT S%@}AR [Rr-@ $.NȀ\%͜,{Vb%IWFL%^RD4pHQ!o_ ^ `h Hh:wyr֞B ן!a0OI cƐ_Hω,)fEN9s@A,"<]-d*/p, Oʲ~.ae"zpta | NA:|0ZfG]"@Q~)K/7KɞT~S @i?\[,- eK,cYJs 2(r,:DcU 9g.oOn;% ֙@7NU1@s9?01:α;@|&?@z'1iFցGN0dR;aA;wi\:=: xJԡ #ݭQ䱅$&M%ԁ'JZ2+CNԐZIꞷ07l esPL!/}O‹{-u@T`|eu1 dX1QD/u(K0 qK2FD(9|8伭?$ md2`E)aʚ#>ԁf+uK<.c% [" _LҸ)[Oic] @P`΀ց$Kԡ? 03Bs9?aQL^cm<34PECk`OUsM$5d?D gj:d_&' "7Ag(zaLKx dUud"JCZj h(򟪒aiQbt? CZ+o9D8" bX[0/hwB2w@ntLX4te­!LN5ZN[gؾ4z[F9;k BԷA@13пaO{ W߰B}ϡe={ 84t?lH0  1Y:_|h-j5ct(Z T TP4LKic4F"zT"X^ʗ)kXΐ?B8a?s?H.INJ?H}~0FՔ/@'Sڗ=5ٺl3o~ 9~1)<&DTw0Q2cEaࢾZ)tcqUGOo 1s#B}Q/8O_L_ep?R_gCpHHa ?pK̔( n~/z7@A3>8"GXbʏ-GUŠ*wQ EZ#WqM[9/cSZꏍJ~9Z+;)?q|z~x}J}sYp߈)_O_gꏆgNqO^W(?%uhXRR/򃮄i1#^uY?JNJz5>>=Pܗ +L[:R}qT`˜/2?K=|J:sWO(@pWńIãɰa`9iʐ)0lQ7) kEm=(Fdxj[Cm[I& 4oܸh adB䉔2c\> 1}$߲ KΪqKrTPW\ߥOJrK (D<3f@*@osa!z+P #M+SC& 'mRem<}<p]r? y0D"Yid.Sۂ¤Ȕ,SijSTR0cyy#& 9.lLOtFH+-f0 :g¸!3 ;eQ:+am`Ȼ0wʜ2r R\& 攷/lSu@#q*aˑٗUDe؄UGG#)_͢B B!~1Uo_~?H%`l 0gySӹknBh)$ r 4  !"#$%&'()*+,-./012345679;=>@ABCDEFGHIJKLMNOPQRSTUVXZ[\]^_`abcdefghijklmnopqrstuwxyz{}2f$K *$'*?ID="{2310372A-1A4A-40C4-A4AB-CC2BD6D5F63D}" Document=HistoricalAnimation/&H00000000 BaseClass=frmAdvancedColor BaseClass=frmTankAnim Name="Picture" HelpContextID="0" VersionCompatible32="393222000" CMG="EEEC078839B892BC92BC92BC92BC" DPB="4B49A26FFE70FE70FE" GC="A8AA41924292426D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={2461FCC9-1D4E-11D1-A34D-00A024CDD5E5};;&H00000000 &H00000003={D0B56F53-D375-11D0-A4B2-00A024CDEEF7};;&H00000000 [Workspace] HistoricalAnimation=154, 154, 622, 571, Z frmAdvancedColor=0, 0, 0, 0, C, 66, 66, 846, 510, C frmTankAnim=0, 0, 0, 0, C, 88, 88, 868, 532, CHistoricalAnimationHistoricalAnimationfrmAdvancedColorfrmAdvancedColorfrmTankAnimfrmTankAnim @2iwstdole f%\*\G{0002`0430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^>VisiconXData> ViscInXDaPa3K73457D15-F69C-11D2-A6E7K6097AE03DA}#1.2Kd:\Dynamics\5.ocx#Intell*uI  D Control/;H1{ A00}#0#G-r0@ z54F3E2E9-EED3-4943-B1B9-3E3D32DC666E:`DOCUME~1\GREGHA@LOCALSTemp\ @exd#=}Es`0K3GrDidlGrpdl8E2A2AFDlADllAll9l2CE94838F6-41DB-8C3D-BDD52C6481Dæ_6G6.J6!C6**N6 MSComCtl2>SCkmt2 5|aN86CF1D34-0C5F$59FC]F87`54DA1~ OMCT2.OCX#Microsoft Windowsmmons-2 6.0 (SP3)_m@lVm?20 4D5E0@D6D-A54C98!lC-616FD85B742B>l-b5  4) @4φ_ 0uMnMSForms>M 8F 8rm%370D452EE1-E08701A-8-02608C@4D0BB47FM20.DLL(7b ` Object Library550 `6D9D669F-790C-4AC6-9256-7A2052559BDi?5)4@.E .@`M c3  FixVari4abxFV@!ab3 w`2461FC96-1D4EQ61-A34DA-A024CBE5]0#409#Ilu9lFD e v15TypeE45Ll00A19EB4AEA4382C-8289-140D253651A9QliaQiFIXp a$NM$0;mList^aLg847254]F6Aog1o"?mPstR6!oOE;m7BC932@73-20B0mFAE8681-ЉCFE0FC3BDU:mE =Tr >m  2DGroup>"72oup`ms(721777t6D 6?#56?VF?m0t4B30F48A-D3qR1D7-900F-3C3410CCBB8"EwR6_BaK0 !_6DrH6oricalAniG& Hp6oc`ThlAinionOC2OvOCR1BӒA, ǔ"+RpfrmAdvancedColorG QE m dv` npeіlz2c d 5  r( [ THankGajf T kN2? I? 5? 1VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAdvancedColor Caption = "This is a container of metam   *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{2461FC85-1D4E-11D1-A34D-00A024CDD5E5}#1.0#409#d:\Dynamics\FixScriptGlobal.tlb#Intellution FD Global Info v1.0 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{73457D15-F69C-11D2-A6E7-006097AE03DA}#1.2#0#d:\Dynamics\VisiconXData.ocx#Intellution VisiconX Data Control*\G{54F3E2E9-EED3-4943-B1B9-3E3D32DC666E}#1.2#0#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\VisiconXData.exd#VisiconX Data Control}Es`*\G{8E2A2AFD-F6AD-11D2-A6E7-006097AE03DA}#1.2#0#d:\Dynamics\VisiconXGrid.ocx#Intellution VisiconX Grid Control*\G{2CE948E7-38F6-41DB-8C3D-BDD52C6481D0}#1.2#0#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\VisiconXGrid.exd#VisiconX Grid Control**`*\G{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINNT\System32\MSCOMCT2.OCX#Microsoft Windows Common Controls-2 6.0 (SP3)*\G{4D5E0D6D-A55F-4C98-B1BC-616FD85B742B}#2.0#0#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\MSComCtl2.exd#Microsoft Windows Common Controls-2 6.0 (SP4)4φ_ uM*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{6D9D669F-790C-4AC6-9256-7A2052559BD6}#2.0#0#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2461FC96-1D4E-11D1-A34D-00A024CDD5E5}#1.0#409#d:\Dynamics\FixVariable.tlb#Intellution FD Variable v1.0 Type Library *\G{19EB4D34-A43C-482C-8289-140D253651A9}#1.0#409#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\FixVariable.exd#iFIX Variable v1.0 Type Librarya$NM$*\G{8472543D-F6AC-11D2-A6E7-006097AE03DA}#1.1#0#d:\Dynamics\VisiconXList.ocx#Intellution VisiconX List Control*\G{7BC93273-20B6-4FE1-8681-4F3CFE0FC3BD}#1.1#0#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\VisiconXList.exd#VisiconX List Control=Tr`*\G{2461FC21-1D4E-11D1-A34D-00A024CDD5E5}#1.0#409#d:\Dynamics\Fix2DGroup.tlb#Intellution FD Group v1.0 Type Library*\G{4B30F48A-D30C-41D7-900F-3C3410CCBB8E}#1.0#409#C:\DOCUME~1\GREGHA~1\LOCALS~1\Temp\\Fix2DGroup.exd#iFIX Group v1.0 Type Library!a$NM$ \I&HistoricalAnimation2f49b25cd5&HistoricalAnimationǔ frmAdvancedColor2l3d899590- frmAdvancedColor 5frmTankAnim2m3d899590'frmTankAnim58IX8  PM-7 ``y`IEΓ#2'q(Oe` as b.Debug=DimGEndTForSetstepTowithFixScriptGlobalmVBAWin16~Win32MacVBA6#~DFBEAE5Xstdole`Project_Picture1jPicture1< _EvaluateProject_FactoryGlobalsProject_PlugandSolve' Project_UsereProject_untitled1 untitled1 VisiconXDatat4vxData1 VisiconXGridvxGrid1>h CFixPictureMSACAL Calendar1< Calendar2=Project_ihOLEDB_1d  ihOLEDB_1Y MSComCtl2  DTPicker1 MonthView1} MonthView2}MSFormsCCommandButton1|cmdFetch cmdFetch_ClickXstrSQLFClickstrsqaintervalmillisecondsfh_RAMPs F_CVPdValueKfrom~ ihtrend, strStartDate4T strStartDate7 strEndDateL FixDataLink|> DataLink6strsh5mi?^strend MonthViewnup^numd] FixVariableCNumDaysNumDays_OnChangeOnChange curecur, CurrentValue strEndDate_vxd( SQLCommandWsvxda͙Connect\ DBConnect DBDisconnect _B_var_FormatMMC^dd\D[yyyyHH]mdss'_ _B_var_ValueMSDBCtlsKDBList16ListBox1 ComboBox1' MSDataListLibeE DataList1.DBCombo182cmbCalculationMode.jcmbCalculationMode_ChangeCFixPicture_KeyDown]7KeyCodeShiftContinueProcessingChangeCFixPicture_InitializeKeyDown.acmbc InitializeN _B_var_withYAddItem Aveu MaximumTimeStandTot9 CountRawAve׹RawAveG strCalcModevstrcX5 ListIndexQTextBox1ScmbCalculationMode1u cmbInterval)cmbInterval_Change)[wit  _B_var_witcmbicmbIntervalNumbers?cmbIntervalNumbers_Click,cmbini` _B_var_forjL_B_var_i cmbInterval1_Change cmbInterval1%cmbIntervalNumbers_ChangegHstrIntervalTimestrint7intervv8 cmbInterva cmbIntervcmbIntercmbIntecmbIntMcmb~cm\cZforma _B_var_forma _B_str_LeftVstrinT`sjct\streZ5vxData2 VisiconXListvxList1  Fix2DGroup{TankA1D  TankA1_Edit=  frmTankAnim6 InitializeDynamo3 ShowfrmAdvancedColorE NLSStrMgr}SetGroupGradiant)CObjcolor2FShapeLumMin;LumMax|:LumRange_ObjLumV NewLumMinQW NewLumRangedNewLum9lcGetHLS9 GetLumInfo*GNewRange@Count0vItemz ClassNameContainedObjectsAGetLumForegroundColorSetHLSC minmaxȲmin1Wmax1.lumH SetObjHueSat SetHueSat SetObjHue0SetHue  SetObjSathSetSatB HLS_To_RGB! rig^hueܚsatm2(^mlB^RValue GValueNBValueMsgBoxR GetNLSStr)hls_funcnlg^n2M^ RGB_To_HLSGmaximum minimumdeltaaXGetRGB-rgbvalyUserForm_ClickUserForm_Initialize5c CreateObject NLSContainer- RefreshRateDeadBandTank OldDataSourcet AnimationObjfrmDynamoColorblnError`blnColorFormCancelblnColorFormShow^blnFormActivate, LoInTooHigh| HiInTooHighBadEntryMinPercentValueMinPercentTooHighMaxPercentTooHigh& DynamoNameLaunchColorByFormۘTankLevelColorObj*blnHasConnectionlngIndex  lngStatusGetFormDynamoColorFindLocalObjectZ(InitializeColorByFormv blnCanceled&lblTankColorDataSourceΘCaptionxExpressionEditor1+EditTextU IsConnectedcbxAnimateTankLevelColorcbxAnimateTankLevelColor_Click*cmdColorBy_ClickRcbxFetchLimits_Click $ ErrorHandlerOcbxFetchLimitsV\lblHiIn(Enabled۪txtHiInlblLoIno_txtLoIn HandleError; ExpressionEditor1_AfterKillFocusYoerroHandleFetchLimits4SetFocusToComboBoxCHiLimitLoLimit*ds\ FetchLimits5UserForm_ActivateZsclrTankForegroundColorGetTankForegroundColorclrTankBackgroundColor_sGetTankBackgroundColor=K clrTankColorx GetTankColor)GetTankDataSourceGetTankRefreshRateGetTankDeadBandxLoInȱHiInzLoOutWxHiOutGetInOutValueszatxtLoOuttxtHiOutl- DataSource  Autofetch<lIndexlStatusjstrPropertyName+= strExpressionstrFullyQualifiedExpressionbvtAnimationObjectsGetConnectionInformationeSourceGSetTankDataSourcer^TankDataSource SetSourceqNumber- SetTankColor TankColor^ TankShellCRSetTankLevelForegroundColorO strTableName strColorName0blnSysGetIndirectionInfoPSetupPropertyIndirectionuSetTankLevelBackgroundColorBackgroundColorBSetInOutValues%LowInHighIn/MLowOutHighOut LoInValuem HiInValue.o LoOutValue HiOutValueSetAutoFetchInputLimits5AnimatedTankLevelK?blnIsIndirectedlngEntryIsPropertyIndirectedfGetIndirectedPropertyۡSetIndirectionInfocmdCancel_Click\ msgResultTypeName SelectObjects^ cmdOK_ClickOn_OK vtValidObjectsEvtUndefinedObjects9 vtResults vtAttributesc msgNoSourceretQuickAddSaveToHistoryListgSystemaParseConnectionSourceGetPropertyAttributesNvbYesNovbNo%KillColorAnimationObject= Tolerance{y TankLevelObj|blnHasConnection1wlIndex1jlStatus1kstrPropertyName1strExpression1strFullyQualifiedExpression1vtAnimationObjects1c) Edit+UserFormNlblTankTagnamecmdOK' cmdCancel frmInputRangefrmFillPercentageslblMaximumPercentageLabel3,Label2, cmdColorByFrame1 lblTankColorlblTankLevelForegroundColor.~lblTankLevelBackgroundColor9Frame2Label4, AfterKillFocus Activate| vxTagList strTagI strti5 vxt8QP10QP21 cmdFetch1_Click!  cmdFetch1QP54 stri^5QP43 strcalwvxGrid2?hProject_HistoricalAnimationZHistoricalAnimationPicture*vxTagList_ClickB4n<  '- $6tI5ħ[/Iav(y@:^zB2BGf8:]7XgG|V/PxME@SPSSS *&P  @    . 9  ( " 0 8 @ &H  Xp    $ 4       "   (  0  @ P X ,x   "      " . J  X &h     "      " . J h&x " &    ( 8H"  PX&`   B&  B  @P BX`hpx "" &88 @PBX`hpx "" &88 @P" X`&h    "  (8 @` p"    " (08@H  4P* 4   /:  ` h p 4  <(  4   (40 *Vh 0  A       ( 0H@ 4    N: P  ` hp (x%%%(O&  )@ RP P B  @ `"p=     B  (08@HPX`&h$&*I B  "b!H]@03Important!! Do NOT move, edit, or remove this line!FormVersion: 1.01] X] `] ] ]@]@]@]@]@]@(]@]@P]@ ]@x]@ .'do@]]]]^If the Dynamo ColorBy form has just been activated, we don't want to launch the color by form. kSet the flag as to whether the form was shown to true then, copy a local instance of the DynamoColorBy form' A@k TankLevelColor$.LLL  &  B@ B@* ! !! (kHVNow that the form has been activated, we can set the flag to false and allow launchingof the ColorBy form'eIf the user did not make a connection to animate color, uncheck the Animate Tank Level Color checkboxForegroundColor    B@LLL  (RLLLko  !RA@kk'o  !R (RdpA@k`oX`H !R ( ( ( (d ( (LLL ( (k|A@o !]$'  B@ .%A@LLLkko ! ]X]p] !'    A   (R  (R '  ( e", Valid source may not exist? Just do nothing'kk 'iInitialize form interface$ ! (4$ !(4$ !(4$ !( !'LLL$ ($ (4Set up the Lo and Hi input and output for tank level](@   " $A&  (d  (d " ((d $ *(dSi B@]X AnimatedTankLevel$., ,!. (R ( (or ( (d (R  ( ( ( (k(Set up the tank level color by animation]p]]]]]]] TankLevelColor$.8Determine if the tank level foreground color is animatedForegroundColor  0 2 B@ :Set a flag so the Dynamo ColorBy form does not get launced' (R 0 4 6 8 : B@<$:!> (ko0] AnimatedTankLevel$.B , ! ! BB@D|h`' !F[  .%A@ B@dA@ko] 8 ]P$'JE J 4]h TankMain$.L L!T 4 ,B0kho`]]]]( TankLevelColor$.J P R T B@VCIf the user selected a named color, get the named color informationz PForegroundColor P R JB@Xkh X J(XoP@]]]] TankLevelColor$.J ` P R T B@VCIf the user selected a named color, get the named color information PBackgroundColor P R JB@XkX \ J(\o@ ] AnimatedTankLevel$.B B(. ` B(h b B(j0 d B(l f B(no ]X AnimatedTankLevel$.B B(. d B(l f B(no@p ] AnimatedTankLevel$.r r!>'i ]H  TankColor$.J J!X'i` ] ] ] ] ] ]8 TankLevelColor$.J0ForegroundColor J%x't tForegroundColor P R JB@z P R v %|'Txk J!X'iP ] ] ] ] ] ]( TankLevelColor$.JBackgroundColor J%x't tBackgroundColor P R JB@z P R v %|'Tk J!\'i @ ] AnimatedTankLevel$.B B!h'` B!j'b B!l'd B!n'fo( ]X]p]]] $Nothing A@rk Select the Tank group B@ A@rox A@ '|H k@ Select the Tank group B@ A@r o ]P]h]]]]]]. Check to make sure the user entered something ! B@ .%A@'|0 k(  Check the Data source] !$' KT+Data Source is valid or nothing is entered.4L]( '  B@ .%A@|P kH ! B@KTInvalid Data Source syntax B@, .%A@'| KT&User Performed QuickAdd (now ds is OK)Name !    8 B@ 8    B@  .% $'  Hd B@'|kkA B@KT:Type of data source does not match property being animated .%A@ B@'|@KT?Use Anyway on datasource (Could not validate tag, user said OK)KT,Could not validate tag, user said do not use B@'|n !A@ !4AH !4AN !4AZ !R (!d *!dApd !d !d (!d *!dA^k]@ $Nothing !R LIf the user wants to remove a color animation, get an instance of the Dynamo Jcolor form if one does not already exist and initialize it. Then call the <KillColorAnimationObject Subroutine to remove the connectionBBABBA $NothingABBABB A@BBABBA TankLevelColor$.BABBAB  &  B@kH  Bk0k( $Nothing A@r koX]]]]]]0]H]`]x AnimatedTankLevel$. InputValue    B@         B@< 'i 'ifrmTankAnimRES.NLSStrMgr$..=3Important!! Do NOT move, edit, or remove this line! .B@3Important!! Do NOT move, edit, or remove this line!o0(Attribute VB_Name = "frmTankAnim" Bas0{01C77A03-6332-4219-A54D-BF712EFC92B1}{B23E6F83-F055-4758-AE7C-27E24E3F 3203} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD P NLSStrMgr As Object 'Important!! Do NOT move, edit, or re this line! 'FormVersion: 1.01 P Opt dlicit;ub RefreshR@ DeadBand F%OldD@VSour_/ing4a3DynamoCol2IDblnErrBooled, we don't wn to lb cTbyB. ` Q"L= p TheUaa'!+the flag  whe Vr wsTn At@An, copy a local insno c#aGet!7c=b sc ?IfcEDë;indL!=9(H, "G"DD .GToH, , c# 25lAG 7lbl!'.Ca=%.Editor1.Tex!. I)'N thatG@ASRcan sW`s&HGf ` xall cU 'C$*V +$Vguser did not make`(c:PNaAS1, !Aeck #`er 2 c8 ch boxϳ"#.I5AP" eground "rjC, 5B3A:KF|cbx .sZ:5OqnQ3P_C0wk5R oC 1=  Z3 !Decm3By ? : <> O OB ?1lU bxFetchLimits On PGoToH6lerf% Dqс.Enៈ txtE a Exit3 D:/!V_AfterKillFocus6YuY (""3 erInteg q= 8 7!P;(a0)[9 .`u" Tm8boBQ1Ms6g0.{c(1000tuZ{1JFZRo )S ߵ ?L1 'Hi8PllLo,_dҟ  =x C0tB ds,  , t, 0=  5"1d 7=?1B 2#+ ' idw source may not exist? J@ust doh@ing e@rr = 0 `End If & 6HandleFetchLimit&sLR &Function Private Sub UserForm_A() 'Initialize f interfacewMe.clrTank:egroundColor.cuxGet-xBack : Express}Editor1B.TextTD0ataSOl>d "RefhRZ= DEODeadBs'D 'Set up the Lo A Hi@kputout p t@k levDelDim I@n As Sl e, HiLoO  CCallA7InValues(LoIn,@txtA.`!B# @? @ OVLFocusToComboBoxCE}@>ObjectC[FindLPocalC (,@ "Anim`>dL!."If .Autofau5EA Oh(InpPJ)%, $#u, o"C;PCap(0).xc;qp@ublic20((04X!2!;On Error GoTor/_/ael/.03hb,', G:E31.5 ExitQ :?'-C/.NumbeQ-2147200603/Msgpt NLSHMgr.&(1001 O xe 2 { &(s\|V( h3vPDopsata lumu#b[QcV絚'<>dL~SheД )?2=&&aMain&frmAdvanceGpGradiantҋ.`Bt0edCs,# R|W(5H  HTAo @.Sy"ujxߑ  r5cбP0}irWU6 Tr Bi ' #1u sel 9la 0ep2-, QdAHf]9'"";fHup Ot e"(M or)/^M%r3 5% 0N% T @ Set TankColor = FindLocalObject(l, "Level")clr0Background:.Get Indir~ionInfo stRbleName,) blnSysQ'If the user selBed aD n7d c, g$ iermatpIH t <> "" Then~^YupProperty^ " n"^ Tae,End |If0#  Sub Public InOutValues(LowIn As SinglHigh Dim~DataSourceA ~/EHAni_ed<E.Aut@ofetchAalseGJH LoIn<@ =R HiG CB?H@  e1F1InputLimitg ?_GEAL1_Truu/`%.HiC%Funcr KA()%tr`Y1!RNRRR+ .csEt-BLongGQVFEkDc =.ForeH4l"ŧʮA <!S!Boo8leaaC@Isųà nlngEntry/?&ݠ--Ised(",) @p rue<% ~ `.c{{\ .@P!{()B, DeRo) ,*w6p6s/*mc@"Cq$ q"-(m $'/*l,/*q/*r /*/*!*/*s6/*/*/*r/*nk\ /*o/*f/*$* **TȚ25qϚ 1rϚut"& 'ϚϚ~n.3 %hc nmAOi0RexL:~=S`tatus0_Typ(frmD*yob)No th Unlo8ad  V'SעҢA ps3ԣ (MmdOKOn_OKlErra,lF!>Exit!{ t ` " 9"4" vidtsUndefi neeFullyQualifiedExpress%S,vt+AtPbuteX9@.No%a' Check to make su rerent[ered something  If ExpressionEditor1.Text = "" Then`ZSetFocusToComboBoxZMsg (NLSStrMgr.Get (1002))+blnError!uTrueEx@it SubE`nd If ' Check the Dataurc@Dim ret As Integer = QuickAdd(PSelect Case'"0 ' =So= is @valid gno e@. QerrQ  = HandleFetchLipmits "<> 0#E ip?G lFnG ͞SaveToHis@tyL fAa1aInC^csynta CB3 _AHB02@0User Perform@Ũ (n ow dsOK΁System.ParseConnD"Name",X, lngIndex, vtVAWObjsUfinedfstrFu llyQu@fi1C`@D0`Bx[`D``L`FB` J0`Xi2 xi\(Ti^`6 ` ```b`de f`p 5i2 iLi`6 H@` j`@ Bi2 `iL`6 ` n`` Oi2 i`6 ` r`\itiviix id@iz`|`~```,`{i8iXixxN+i D ( `++itivi8ixXidxSiiz7'`\oa`^`ew`or``, `h i i i  i , `(  iH ih i  i h `  i it( ivH i Hp `  i ix id iz `tE `v`,V `  i 0z!i `t`v`(z!`x`z`d,l `  i ix `i `L ``FE ``t`v `,p`iiz0i `L`F ``t`voB `,h0` i@ ix`StylizyleWi `L `Ferce`Vert`t`valeD`Vert,Z8`pixtsWWidrcenizPerci alFi`t`vnWWW` x`  `  b.4 @x h p 8( x0x0 ``,hH xx0` B H"  `hp 8Ph$ "   @HPh   (08 HPX `p"  x  (8"  @HPXp "   8Ph "  08X`x 8 @`pB    "08 HP  X*h   "   ( @ X p          $( P X x    >    :  8 @ <P     (   &    B  ( 0 @  P X  ` h p x         B                ( 0 8 @ "  H P ` p    "       0@B  H&PxB  0HB  PXpB  0PhB  px" " hHP]@3Important!! Do NOT move, edit, or remove this line!FormVersion: 1.0x]](@x]Xp]] 4 L F AH 2 8 :AJ : 8 '< F'@ F 'L  2!N  2%P.6 6!RGroup 6!T 4A0dxp 6!X$V'>_BU > 8  < L @ 'D L D $Z 6(Xk Ao]]GetF'\'^  2!Nte  2%P.6 6!RGroup 6!T ` bAJau ` \  `'\k0 b ^ tL b'^kd 6!X$V'dtSyste d ^ tU d'^k d \  d'\kk RegOo0]]  2!NgC  2%P.6 6!RGroup 6!T L AfChd 6!X L $h 6(Xk PEClo]]  2!Ne  2%P.6 6!RGroup 6!T LAjd@8 6!X L$l 6(Xk o]0]H  2!N  2%P.6 6!RGroup 6!T Andxp 6!X $p 6(XkH eo0`]`]x]]] d?pH d z '|d d z d z '|k d | '~ z x d' d' d'dH .%A@k(d  ~ | xx $' ~ | x$'d ~ | xx $'ork Convert to RGBMAX (255)s 't 'v 'oh xh  xh 'xd8 x ta xh 'xkk x<      x< ' `(_ `d x a 'd x      x < 'd` 'kPkHk@i8]]]]] to@' vo@'(E o@'   $'^   $'\ ^ \ 'd ^ \'z'x Undefined d8 Calculate the saturation d? ^ \  ^ \ 'zd ^ \  ^ \ 'zk next calculate the hue] ^ \ '  ^    'x," result between yellow and magentaC d  ^     'x6 between cyan and yellowd  ^     'x8 between magenta and cyankhk`kX x<'x convert to degrees x  xh 'x make non-negativekko(       'd 'kd    'dh 'kXkPiH       'd 'kd    'd 'kki  't '  'v '  'oXh ]( @ X  t v A t v  x d zAIf sat = 0 Thensat = 0.00000001End Ifop ]   8 P h  t v A t v  x d zA d'Vi@ ] 8P]h  L F AH t v  x F Ar t v $@'li]Ph]  L F AH t v  L F zAr t v $@'pi ]{E]#@  L F AHj t v  x F zAr-I t v $@'h&i0] *DA t v  x d zAr t v $@'Zpi08o xfrmAdvancedColorRES.NLSStrMgr$..B3Important!! Do NOT move, edit, or remove this line! .B@3Important!! Do NOT move, edit, or remove this line!o`XRAttribute VB_Name = "frmAdvancedColor"  Bas0{6628DB2B-2AD7-4724-6-F795626C75D4}{65BA88A1J81-4973-B8C3-372FDA6@B1CF1} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomiz1D P NLSStrMgr As Object 'Important!! Do NOT move, edit, or re this line! 'FormVersion: 1.02ublic Sub SetGroupGradi,(C6 9, cLong) Dim Sha pe LumMinADo@%AaxLRangC  I Newρ L, GiIntegerCh, l s Call GetHLS"(B?, h , s?'InfoK, *ax [)=@A- +J= l 1 -Al i 1 To c.Count l_=Item (iAIf (Bg.Classx") Then 2ontadfsEjaaOn ErrOResuNexbj!@*`egOn 9= ((BE') /(%) *>#'+D@`* !;@:# :!End If!2xt i `drff?GC$, mUmi_6g)UM1Qaxl$um = 1 = {@GBKG "G!G= 1<U <&-S b)= a33b#> `-p""@tXI.=_X H ("@ Oa#%$?v qY`WHueSat,iV;W(LpdL$LuL (3L@?A\1/L )KDPrcExx3 '?3oRf53 dds`U tdh ccA\ued`??etp 0`a?mVВv????{{ ?/.???0a/..OtvAtx_To_RGB(c, gbyhupo@atä`Avm2' sIm؞RValۉSG_B^1Yw.5HP0 * (1 + satP Fb*u+ = 2 A- m2 !;PG0a= -1ya4f4\4X RMsgB4oxg.3(10000IlVhls_func(ml 2:@p+ 12 ueT ?-' Conver t to 'MA@X (255r *  g$b@,gF t By # n:4), 3.)+1> 36Q>-S< 0+ILf (hue < 60) Then hls_func = nl + (n2 -() * ̆/ElsenrI18 27E.O24O; S (7) 5 ^ ~GEnd If  FtioPrivate Sub RGB_To_HLS(ByVal r As Long, ug bDouble, lum sat)HDim min  axR@% GVBRD=8/ 255#= ge(= bm@)= A@imum(,~ L:9 iFn AN= (+GDABƁX8= 02Ad= -1' Undefined ' Calcul!Athe uraCAA (<@.5 !/-/3ϸ{a ,^' next c @ 'MdeltaMK+`:B aE@c-(G- #FA7 ' result between ye@llow amagenta/#Ad BQ2dV- CG 'cyanbG Ad Za4(-c)#E"  eaem7c*`Áconvert to degrees' a< 0# b c1\a:Rc'ea3GAb`\bh {/P*$A1/nwTXdn an <O a/7gRb/*%g/ GetЄegbvЄP{hBsrE(rMod0z64= Int(!|6tgrl|ub:icR  A։OO Ai!szl t , r, bH,,}')v0,'d.01' qLФ Ls5TIv GM qOO.O"O !.fESetHue%)t< bA. Ah* s""ќ"*eh ":"S X0A l PSa9%#l nÿl0fatDS `gp! A" ~l!"BoVng0`.+fD c//@*PS9ouble, lum As D(satp)(Lo ng Dim rH, gbPCall HLS_To_RGB(rX, b, hu, "),Set* = )End Function Private Sub UserForm_Clpick(+&Initialize+r NLS@StrMgrhCompObjp"4@R KQDB MS Sans Serif((Tagname for Tank Level:5Tahoma+ (OK O t(Cancelc O t(Symbol Factory"! artwork licensed from Reichard Software (419) 872-9596 www.reichard.com S5Tahoma+ (H  @_}: R KQ_Arial8K2f$K1f$K0f$K8K *$'*? *$'*? *$'*? 0:ExpressionEditor1%82HlblTankTagname100607(cmdOKc1007a$I0 ,cmdCancelgna1008!/I4 !#frmInputRangee10098(#frmFillPercentages10130z2Label2c1016I,}#Frame1c1018",#Frame2c1022"  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qHFa0 Fetch Limits from Data Sourcee5Tahoma+ @H,F,100uTahoma+ @H,F,0uTahoma+ $(Highest Input Valuev5Tahomac$(Lowest Input Valueev5Tahomac<H  & }I Input RangesR KQ_Arial4"hcbxFetchLimits1010$#<txtHiIn "$$<txtLoIn 0%2DlblHiIn 10110&2DlblLoIn 1012  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q$(Maximum Percentage@5Tahoma+ $(Minimum Percentage@5Tahoma+ @H,E,0uTahoma+ @H,E,100uTahoma+ LH  u} Vertical Fill PercentagesR KQ_Arial<p2DlblMaximumPercentage10140q2DLabel3l1015$r<txtLoOut$s<txtHiOut"  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q( Shell Color: 5Tahoma+ "@"@,(Tank Level Foreground Color:5Tahoma+ ,(Tank Level Background Color:5Tahoma+ "@<H   }I Tank Colors.R KQ_Arialh4 ~2<lblTankColor10194clrTankForegroundColor:"4clrTankBackgroundColor:D2LlblTankLevelForegroundColorc1020"D2LlblTankLevelBackgroundColorc1021( clrTankColorg   n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qDF F0 Animate Tank Level Color:5Tahoma+ #{R KQltBMv(-"0""""/ffffo""""/ffffo""""/ffffo""""/ffffo""""/ffffo""""/ffffo3333?3333?3333?3333?3333?3333?uTahoma+  5Tahoma+ ,(Color Animation Datasource:'5Tahomac@H  } Color AnimationR KQ_Arial<|dcbxAnimateTankLevelColor1017( {cmdColorByorS82,lblTankColorDataSourceor02LLabel4+ 1023