Вывод на экран изображения: елка и снеговик - VB

Option Explicit
Dim pic, img As Image
Sub EnCode()
    Dim b() As Byte, i&, j#, ii&, n&, f$, h$(9): On Error Resume Next: ChDir App.Path: If Len(Dir("1.jpg")) > 0 Then Exit Sub
    h(0) = "`````ѕq‰°№pmc`зИ№``f```````~dєpИu`жo``Іo``aЦwґpЉdн…nzb`p```xwµёі`ш„эЅip€`dКЉАhМцбАґДЖ‡ЂР°АМЙиe°Ш`vжАРqЅtЂ‚аМЦШh†ыЊ{іЩeУbжМЦЩиФКxЯѓ±Я№Ѕп{ЩіэзыОЗыЯѕѕэжѕµqХz‰‰ЉzФФПв󱉍ƊкжµЪФЗябя|пОаbАкЉjЂfєs»ъЂ`юЕ`РaЦ}~лonхїПЊѕїЦЂbИdiihrbѕЙq‡иѓ·Ыяв‚‚ВууrВУТпШyчМmыg`naux~чonыЖзЂnяЂЃЇЯГаяэsя±№Йзоуядьэ`rp`Ђa†ёґК`мtиуфї¶`kєкэqо{`я„лnфЬѕА·эв†rяь||{|~кЭmю‡ярРЯц`~…лys‡oszЊщКp|ажИsьРСґ…†Ѓ}bНШuЃЌєЯЌіЗУнхdvхmютя°±±Ябѕ†}кДВкСхkzю|юtя|oнЙЗlПЙєДйЯШжРйc{ІaЛюУг{¶~sрФЇзЂawо®…ЯПАs`лЙm†|фЌ°яЫuЅЩШЗйxъЉуо‹®нdЦрь`ь‚ЂnКjыoЯ»ЉnиЂЬc»ЧМfgЭЦ‰Я†°еЌїІxuхИГбтlгlЂ}іqjё°‰~пrЗШдСглЙЃК±gjiЯfєeёфqдхСnїґВя‹ДР·ксaяzoъјБмЦnзшЅ¶‚о¶БЃ{й~цИфхцx|cзyµПЩlщµ|їТ‰гnнc»їЯ‰ЉЧ±ЬЅсуµfґ»rзЂ‚аыiГј{ЧЩ„ГЃ€азтѓxпТчyїqЃОЪоЪфжвэзwЭ»ЅјнП»‹ЇСdКаiЧЇґНятЩеЫЕкЉ№Жэjcи|wrpnъвТ„ЫЛЌХ€ЧѓЂжпйѕжФ嶈wЦЬpcІґжгбµwкНешrІЉkєУжзгКАqэПy°їШЉиЉrВИіЉэЊ{®вsгЊcЃhtОgЧщёяд€яыоЯпrlзpОz€ІЇеeЂВффїyїІЂАµТ°vъd†Р‹tФУЌ‹uтД·iНІzвтсpХкОкхrрБ{ырwмkѕiщДэдУзeДїЅбЪМxЅЊg€i…Ђш‹ёxЛgтэm»дожюґЖ†„‰бlрnІф®eщЯмИИШвvoЃzЬёьэОРЩмнЯcн¶bхmдущdыЇnХvЙ†б‡wdЭrёьgяТд°ЭЯсv†щйюvуґ†ТвеоИ®°ЩйФш®ПРwpЖЫrnф±"
    h(1) = "ѕжи№Ъzс`ИуДОЗЛiЊшшЯш№ЖТtКВдwcхиИмБbаССvч¶rуЧеk‡wххs°±uяФп·аpeзУoП»с‡тпМатЅхvuѓ±xuЛЃорвgг…шФИКфег‡ЕlдЕЛЃ…бяуe…ХЭf{зЛµллeУУтУґПЩХЮОаюпґlnzаq€agЇеєхwфптЇЇКzп„тУб~Яшк†сЮЩэіМІёфытнhсЯ~sгрfб±чиІ`юхu„КЦЙfлЅbЬЉ|ц~эХёxБбЙ}y±їk°vєхЅцЙbчКјvпЗЖ€Б·oмzbѕ¶Ъеј№µµгoэп‹хqЉxьѓlжw‹ХРyиЖ№ОБ{уЫІcuЊубjХЂ·яПяЗiю‡f|іґХФБnо‚іБхКЦiХЌа~ѕ€срІuмтyв}НdЖssЂ…эоа°„В№мд„}bЮжЗж»ёББСК‰Юcьv€ИЌЊjЪvїkЦфЫРфОмйьЫ‚щЌјиuна·фєжighідющышj€¶НєёЕїw»н‹ЉжэkР±ЉlГОЬЯw†ъz}є‰iюfi|ївУЛрЖб}Рюї±p‰с·nІЖуgнЌХхэgйяен‹erЮЩn„НйРиЫwТвТЛР‰ЬkЗВ€К·хbе±uчкЕэдгТФЇ¶ѕщюоъгk{ЙЃЬЙІєqййБПЕuxКАлrxъz|€‚n|Чєм№иысbааvz‡ЧштХиzЦлЅ±cз{aѕґ|lфТРѕДѓїqт…ѓѓ}°№аАЯi}ЙЗymИcЧь…вмДѓтБЪ°ШКuoaйwСрјvТjлпgттeiПНwfaШУП…sьЬээоя‰мОtжє€±лаБeф€мzцЦЧЦqЯжoдщр{Лwед„дkЬpЅhxмёУДёЭsЂ°ktВэk±юЕЇаІИхЊs`хЪхe±µкрЖбНѕт€ѕЂ€РнГmзСН‡КБСПЧПщГцЅ‹РhhШoёОeсx`ЮІwЧнфpntАпя®щЖoІЯзq|Эzб‹»cГцгqmТ»w€А‰ЭБpЯ…уРiґЌіКДхъБдК‰ЯЛбнe№„tnp°alg№нpЬфhПr~гіъП€оѕо…Ч‚шєbЯф‹КЅfkqкЖpЇЕБ‚€Н†э‹иОСЪб~ЇЃlбщювр‹joіьѕдД¶ёЅkЛiг…пЖ{…ЧЌµrjє„дЌщЫїаэ‚zй…µ°цр}фФЌЧЧаЙЌsЫшАпµвЩКoЧИsiРВєigрґИЉ…М‚№ЙovЪЦv®щa`ДЂШЧх№Л…мб»zЃ`ЩфµЩ…"
    h(2) = "Э‚НтqврґЛsИ…вФф°ІјфqxПмЯЊЇМЧ~щm±¶‡dЩtcПf„fдтЕcj»®mЮЧ‡еwѕыwmtЛЭcјЖм№bНтЭуЙАюwІъ»oіvµiеzйЊКсъjwфЖcЬsцуайµ}‡ёІ»м·ЦsЖ°ЖЪо†тшО·kОёЪШО~vrrД‡‹оЌЖйаГЙЂqЭЬiй‚vЂi»фзфєЮйеІgЅоtdВѓХе·wtы|еuјм¶µvЗТЅГѓcО°ІшнВ}vИnТxkй‚ж·Іц±шІuіuзiТЙсЦІоm‡йщвnтzjnЂБІ‚Ѕ`Х±ііУm‰ЅЖцО‚РтѓЮыгУѕЛёqЊpх~ЪvЫЪsИЉЩo±юЯахжЃДХІзо‚МэЛЮаЉоЛІВl|hnaСЕp·ЌсТЯ№{јьшжСКлчwГЪЃЬеънъцТжЙхчnfдxѕГфїфгЫі¶АrОхi}ѕnФr‡‡ПЉwзѕЦЩ‡ї€шпТМщїщЖИцtfЇ…УРюv‡fjmЃ‚ЕочЌ»piЭВ„їЮЛТгр‰hѕЮ№tЛl·yШ®Пд`sДЩл‚s»yгЉр‰хnРеУнЧїsшxЭЌґея‚УЬdеЮДхrn‹aѓ‹ьт~zга¶йi‡є‡№кіН®ЪЫЦpеАдАшцИФИЦoе¶u€ЊwsКЇаС»µйlґсїЙКЂписюоАmоµш·вЯ…№Ъ‰йѓдІЪѕ…ѓЂnvуМ·lfУЯi~€‰ај·°ЮУlыкОХілщьВwhнХІцГ}ШaНщґвїЗ~ГuрѕЧуvъ{fЦЉПМілѕkк·ЖщvІ±‰Лѓ‚ъґЗѓХФЮЛuвямЪ‹aНГeОcчгМЖоюШйpvЫе±мъВ†Ќл|Дolmщчл°ёЌВtзэ~чjЙеmfДЧР±ЕїоЯ»Ю‚Їцpиy°ІvЇ±fѕёnушТ±j‹jїЂyЫЩ±µxgtЭ~bеВrЯГ‰нАЭВЇЛТЯ±лЮчБпЫґжЛІТпРШЉ€rЗuУф‰ttw…сяВУ‹ЖНЫфуОjжcУiхе„Ѓ`МмПvтрясЬ°ГsРЮЦфІЯ»„жчhп…Њgqш‹И„ля„єµsd‰Чукq†Шесшcа㹋‚rfpмЬω臵ФСнпьЉї~»unfГ»·`ЫХоЅЖх°эв„ШьЌ„№{‡щЙЉст„nИѕгд†ГоєјізqітХМdПє№Ф€н}ЕщѓЊlЌ‚ЕїvЪФ†Яc}Внuuч‚Хё„уЛfЛЕВяІэЗёЛсlЖетЖЭХdйkржфz†шЦс{бcЙыiлЂюНШї€kИѓ}ѕpЊ"
    h(3) = "ик·н°dУaСйqwx®й†Х®ЛёЛыg№}…грлЫыЅ~ШШІЩЊЮїЌХ„СјбicщДµјчЉйЯvЩЙѓпh‹ЇiВюЕ}РЌт¶нѕx~ТАЃgёбК±µъэcдiСЊК…кІЫййИхГm№іf‰БТЙqslґ†‹sФfйµcfЪЉИМЯ¶ѓЇbеЬчЇµ‰ЫурЛ|бeмrАІјifЗЗЫМЗЩcШЩЬЦЃє±„nжлЙlыЫ{цy±ЦЛЊЮЛПбВ®†рЬѕl`zСБ…ЭіхcРуРбtЭчхЉ|‡Ч№ЛМаШЇцяМЃСёХінaб‚ТуfЬЇhlrјЫЃгйОяp|‰»aєphаµЌКШ»ЩсЇэхбжuyЬ‡ЖaЮюЯЯчјieґзzюЇэґtfяоъЉы‰†Њ·Зв`Рu†ujијзщІkЬЬХ|aЦ»фАБч‰ґi‰±‰Аa№gдcНьЪГЇЫьтНТЯАЌю‹tыqaЃiм€иЬЬiрит‚ЗthґpkсюxомСньэЙУiІwй®Н‰ЧХфв†ЉoсФРґТЉэq‡ѓ|КщИИ~iё}д…къёnцЌµД·o·лЌl»gpу°С~йЉо}щЌИµфёСwжАкjеЫ№ЪцmНін{оЛ®еВбУНдшхцeдЩгy|цСli`hСtґдksєуpчЛЪбq‡kбИuЙ№юЛ¶‡aЕ„ї№ЬеxсюшкгПrЙ»ИЇЃ„ЬЕЖ‚°пЛцяЭагe„‹ЕhТ€жЂНа}mЉъhТvxА±ЬпУсh‰ёdЩcб``ж`ю{ЃЩЫАкПЬПцЕґ{€ЕИѓГКzбЮ»|аХивдпФhЗїм}и·ЉЮ…ж·ОТp|vБОhІkh`ґЌ‚ѓЙЌйcСВqhСщеюЩbечХiвsiлоШЭoщѕ±bl¶…З‡юцт`ЃС·Ы±agДуЉЮХы±ПШщЫsЬнОѓТејМЌьiмwкзЙ†гйµnп{qДcЪуdэcТЯчэ}rp~°жСzКꉹэыё‚yщzЖЉеК±w»хiДгСЖС±µкwж°оЭЧhc€ъxoЙОж¶ВЫ¶ёхДЊжЌѕсИфqДiЗuЦk·нgЅ№мЖЉЕт°КиuФіОяКрхк»тХКПуvxвµъюяvьтєЧ†Х№ГУьzЫшkпЧюыЉчifй‹я»Ќn|…ьфг…vј…БѕЙ|Рк|k®ЧожМlєµgмµвi‡ЊыyСЫ‡Бiѕ€фЖh…sёй`ЩЗqmЧЅж}Ь°·ЪИ‚вЇнdы°щЅєyЃЌgѓЧ®°‚cьЮДu®kу{СыЫ{пwжаІьcєx‹€Цl|y†lo…Л"
    h(4) = "»ЊъУрфф°~йьaiК»№фотХляpЕжїзкЇрФеюыПtьp№ж„„цЛґnоґэцчхs{‚}}mыбoЬo‡у„ющjэТЛЭАжg…Ќг}№сЂ|Ньѓ»АaѓШ„жГйщµЦиґсґ°чч№еЅкЫѓ»ЌзК`‡нЩk·шыШ{ЮьфЅРmuЪpjл®dшЂfѕГХЗЬ}чЃш‹щuКЗЭzЦ{ЌМtГ№Во…Хza№eeкhgОѕh·|ѕѓ±Кь±ЦуНы…d}ЉsmЗЦ‡о{БїоЩт®Г±іпvЌїkчнµ†®аПяcІш·ЉтЧuеПЩr„ТУШОдВdёЯЂѕ~qр»Щ»вmфіу‡бщб{уЦькПЦyЇнbн»ІтoКЪН€ЭЅдbгЫхТЊП†і}lgгДЛiИґв…·єѕЩХ}ИИѕвпБvкЩДддвцЙЉльБюЉЊЫЕЦ†эсsі°fвы„xiЗвхdлeпj|тЭbЌъrчґїЛcёёы„eПz°sfиxРп‡ГgЯwевсч¶n~`оЦsє†ilД»Уyb†pтэъ}аµыѓт‹В€ічиvvжzгЕъЙЧјзръЬЬтєІмУ‹‰ФЌжgЮgurтdЦЕОШґЭёьт·y`bЫ†ФЦхmЛґмЫѕеРzёМ}jсЖЕЕhгlи‡Д{}ц‡х}±‹КХёtnШlЙеyїp…tь¶ичйїіwva………xиевМіБМхНЩЙ¶wгчЖ…®зхЉФhПШ±М±‰‡®€oЃлЕkфХ~ВuВrЗ{·сh}bДµѕЧiСЭьmЪ‚ѕД»УёсkРчДЩЃГЮЯБaоч‹‡Цсв±}юxcгъgуo~ияшсxМґl€·eТМЕtfСpцЦЩЃ‹€чзaІИВЩЅмТыкмјэЯ`пыaјrЭ»vЭrыХЩіzzьqј€ЙbcСУjaйДЫЖynщbgлгеЂЬЯВЖГыфкxРОaА†pдЂ№т}{»Ьґ€„іїјьЕЉЅцЧm№tэЌхґЭЙЊ}щНП»ЃЕмХє‰и‡ІЌрcэРєІnЦт‹БбэЉЭЫЊТмЯ¶Ї„}ъЯcЮbЙЙЙe»z‹xюж‹lz†жоЬојф|эqґІєяМіѓНiїmіЕоД†ѓ{юxkиъИщэvnkdµЩЌижоХclЭzfмдйsукgТРзНТЉФзqа€tЬfkНёЉ‹тґА¶»†їpxВй{іхКvиЫфУж±ийцЪµйЖ®vЊЮЙГГdачд†ыгvf`м№pШoсСІРµ°УЌНЧЉПШuп…Элuвпи‡йщrґУ»‡ЬЗЌј»ЭЇЕэ‡ъkЦЂЙ~`ЩБi"
    h(5) = "Њаѕр±Р~p¶±н‹ёаЭЮ|ЛЯЙ¶ПДё№hї‰qЮРЦсіЗЇЩzЪХщµ±®Ю|}ЗuхЩж·ЂыЃаКхгЇфµ®uОuэѕъsиїйФєпѕЮЇщЫ¶„xЂtУjx{lпЫdШґб®зnЕМ·яoгэ„иМРсkЛgФЉюЕТЃk…зЮгz}эcЕ‡gБлуЂn¶‚Д‚±cФ|wМЧр·¶Ъhµш№Ьs±Ф~ЮјвѓdС{еcЉІёыoiєнЖЭcИzбд}®llк}ПОgРРёqїтьЭh±ІzaлО‹~{не~ёkФЌиУmwЛdвЗЌРд±…ЌlМчи†bчeЛДАЦюvjyіщaшПєбµхЦХТМЅгт`шСипИЅјsАwх‰р~»Н{хнЯ®дМНьuжУ„yнЩбfЕ‡ш®jzмjѓюьОЦхсЂјф‹zШч{µуЭzЊФАfyї}lkыюЮј±ЇР‡h»pvb»ЇЌСКkwзiхgmgьЬ`хОѓФ°i€vдwЧёжОшаЅЇ…~Ж±ЧМэїqЦєвГшя‚r‚эiЫgЃх°ШґlыфжПfФ‰дЭ№гs»Шm¶тщнг€ПьбммкoaЂlжlкcіХТ€№юцbрpТчнzтвїoЮІѓДЕФНoarfИ±ЖЫ»РДх‰®В€кКuщЂеШчt°хИСЛмzъНѕ№rЪkеєл‡uctЗуЮ„{oАХЕkjгМcѓжКёЭЦІЮlяЯЗq‡ззчёЯХЭъ€…щЯ·№„Ѕ®sq†х~БїѓиЃ…ЬдяКцlд~°кл`№п€Е‚Ќ‚вl…їжoД}ТtЭНuц`„o¶ыУъЃ·`~µЇЊ„ЖчqОa|Вк°„ЉГАЉГБfвуkщ€А{y‡рґz»глЇгЦйа…г·ЛуІпjюЙ„xЖйэ№o„лk»wx‡keгЧЖ`КёхетэmрщПїсоТтчЧГВЖppeМxs№‚їщ€ыЪе№ѕХщфЫх†ЦІјУЛ‚z|hоЂ‡Щш}шzґА…юъюЂhюЉмйЪбЧsa€ю{vqeнр‡Иыёbэja„†эС}уйуЃажіш‹Ыфблs°ХЫТsДp}‹Р‚±ыпЕbЦН±ВѓxъпРблрьФЇyЖ»…В№ВоnЖt±иЛah‚БЫгсґН…ОЃшdшmТрхЅАПуШ€nЃДЇсdАЙµРаъЊЧбtьyКд„yёХЅ‡Ц†rкчуЇЉЛ‚ПэхрсМІй†bъjЇяЯжщАГвmс~`Ь®дЂ„дЬввЗГeОВаИ}†шeИkКyТ·ЗвvАzЮ·ЃnrРЛэєq~‰vТoЯq®щоъvьУКжмлХ±Ычд"
    h(6) = "фйЮщЧєa~ЮбчОtдwдcхеЖБ±}Гbхrо№Ру®ЌаІзµйokaµe€ИdКБвБq‚ЗМБy†b¶®bЗЊЉь‡yФЫg…уЮ®z„‚‡dчж‡МТсmѓЅЙиГЯ‰ЪіСТб`ИШНnюБµ№цiюЙd}µІсїhФлЩюыКМ¶cфПк„Жe№±ПоЛ†nьqСёрґИ|eyф°рэ‚№сИкЂiД»щї~ѕејуµз¶»їЛЮqнfЬjбшъЬІЫёpє‹ыИХ°цЮdцыѓ‹iїА·ьЊіЭ·іФфk‹‚ЬjаЪnЃ‰п¶хЩyЦѕт€АяЙ|eОйЗtЯi}у№|~мжжєeЭcПЩЃrчНфИЧпhспьzhПЫтЩЦeбйЦт±ЕзСёДlФфъЭyВmmТ€‰єейЃчхлТ{z№эcЮюб…ИДpИвКгЙboуэ‡·€ЮґІlіаzН}q·±‚аЮщШнкХёЉ„ЧЬеТ‚ж~|ЧкшъеЮwрНКµыеїЂ}wшэВmЩІ{rКЮвС‰іf`цмppЉ„узЉи°Ям}ЯПл®ЇkЃ†Щ°…пЗcыuдЦЇЉtѕизъВбрЮxкa…ґ}жДЪяzµ·µЛvчl®НЉФґрзaРqoБуЇе€µЖvѕЙ{zёТbnЮІЭ†эХм°а№»wЫiОхшыйАе№wbbМєььЫ…ыыюХає†‹ёЯxБbхsюВРhЪzЮщbО‡Бэя‚рзЫmЃєлкц№ЂoїГzДмл‚y…ОеejН{fЅvГл|r†Г}ЪЫБЕзЃзмКАЮёЛщzЗeгхй»cёч‹б{‹|в}em·Њ‚оёдІЩєЭБm~sАУЙ‰е†ёРра|дНєsмo…hЯсФеЗssuъvЉАх®qjІzзё·kЩМЮнЊ‡€ДuцМїfјФЭЙyЮеєЬЮкеНзmѕmpґaцш»ОpщґЛЇЙРеrю»ыjШєьжyhаe№щБc€‚fыфЖzєёuШЧБзкrпЙЂ®Цдцх€pnн‡hфаxЃzпчqЌыnШъНДт°УbгЩЂфмнЂЗ°јчмemідьНГЌeqЮy‹єx‡щ„ѓнБзФκ爇ч~ЩкЫКЩЖ`ЅtrшЕhwЇ»є°ЙЙuУsднИeИmnrЖ†ѓН°е®qСЯВЇКo|qјмmП‹lяВКтіхЯЯ…ИbxШiМцн‚cЩыnЌЯтйЩФе‰ЅцлЌОПШ±Ц„yчъДЇЕayцхЪqaфjpн{€нfбЂЯтЫгЃё·°¶ЪХvЭГЇЗwнВѓеhЇgлыхщй}Зsc„ТЇглЪУЙЊЛuzЦВВлц"
    h(7) = "оєН}€ЊµtЌuїwcІtжбШgчїОХї‡dАуЬУqНЅЗСЊ‡ЅЦоЭТwЭгnqз|„гПІaЖЧцЪЗзЛ±дvюН{„®ьдЭЖгЊїsmbщЫЩї¶‰€ЂЃжТПzzЗ…ЯmsqеpПуfрмѓюЧєzч»РйrdЃyрЮяјуtЦІИsъьжМЧtХЭТЮј‚°ьщоН±сibжочєУrвъЫВuк{Ѕ®iЛглбbЌуИ~iqоуь`mcбцРяїцoНлжШФwФУПОэЗlДwЫoБ·У‰эc»Ъ‚·зоеС·ЫеЦсьУфґ»ТЃІuиЮЦq№eіґѕєnЇЊН‡…ГpРєХя…Н}ЮЭ·эуЂЩdс}ЌКбзqыОlщ¶ГОуtнЛЖРоО|єГ†хСЯуЉбкЅrqcЩ†qвгхѕµмФrїйТЫт°вЩъХкУ±ЩqqrrМцmюґЊЇтПЮОб‚ЯТХидµИКЊИЗЪ‚}†ґр¶Дєi№„·ЦшІёОФxзИбєСшusДnѓЭиСuБХlєcykcлДщї`pАvyжБµе№лТцЦІ№ylaЌmд~nkСЦwГЧz±ьО†®±јyлѕкuµзї¶Ь‡„шЉqiярlЦfяФнХ€`сыswЙЬК¶crnt‹¶†ѓТДчлХiі`Фwй`нјy»у±МзИмНxh»z»‚ѓЩ~РцkД±‚ію„ъїкіґуЯѕЉбoЮвn®ЭdФ`€‡‰Ц‹Еі‰iрr|xБ„уЅbЌШЉxѕeгn»yеЃЅјУЮчДzк°эНt‹ЃuxьОСЖЧvgµtпд№ИyРmyв~рЌИnэmЭЛmyфж±юшЯukНbКЃвv|ЮіЗznЗЧи}ёМ°c†ёЫІѕпстЉЯЂјС|ЪСeь»О†ХhЙЖшiыuщyъ¶µрѕрТіяФЌЇуЧµЬ·vЮАЯrssјм|ЊцЃyгМ|°pкВЉшынЙяНeИkЊЅВЯВЊ€ѕµлdШhlИЌvН‰y…nЕДОФsnЦЗ‰ЙСfЊьи‰йэєvtъХпbоцэnЉаЮntрП°|qcадлСј‰ХуyГtёРеkрсдnжїЌn{Жъ|уЮ‚ЇутyгїiаЊЗі}цzЧцрЌrbrgюй‡gjгЩп‚ґzвp№~ЗАд»mЉшчМ¶Ѕd~лiЖyТЫрyhйДЌбЃчБъdёf±dЪТБДЪ`ршУЅ°°ѕ…чРіvЭЌµЗ€гЉАxВv~Њb‚уЖиЩlРУяХХяосoзяhв~Ѕ`Ђc`Љ…`ap¶|hЃ·Уk±а`pФЩЇiГяЌЪuИgЙЊb€јП}µЛхехП"
    h(8) = "bдЉі‚cф}Љk±ЛтТэЧeхыhОвkєШ€ЂФµз`‹нЙЇпuЦjп№ЃнЯ„sзх†ЯЮ№зm®з‡uЃ`ыїЗКx‚rш‹эw°eДДИtКelzuqы`rдХмрУyрТсЅДtk}ґqЉt‚юЧqЛИХЧСЧХЭЙФЦРюСКЉuюЗКЉcщОs±ЇidмmцИыаіµpбЉЩкипмїѓaН®ЬgІі}ПФщъП°µ|рebрi№Шпs†·ьТ‚ЇщЬуФмц»УlЂЉјбj`БъеЃдьјплСyЅТАІнфсІuЊкЂпРёБ·~йґЪЖоТэЧуЫеегЗcЖу}ВґзсvЧhФ·В‹ШБУ·эиroЗcЉПГТfй‡зМБ»µiзАЗЊЂo№ШfyssсaМЊВаvВbз°°ЧЮ}lвqя‹НЂ‡абeґу®юo°¶s€k°µЮґѓМѕgюЗЙмЯгвЦїоОЦnsкШнЧe‹g~млМпlwrvo~…мЖРвdЮОa·‡kИµ®пjprЖЉшШГзЯeЕ„Ъy‰hШlцГ°ґІhлЖw‚кr€Ш€ЗЊуmЬ¶ХФ‚Х|ТqЧЬЖbН|·ф„фЇШiнsрфГкЉЂпfкИЇйдЯibtчкr`ТюЕbЌфґЉyфТАот№д|И¶сЧДcsХумЙеШ‡о¶Р`ЅЯрПq±ЬЖ{±ю‚jo|Сх·‡м~}¶яѓ‚РэяюЙё„ЕЃqсіpВШыМЅФАЊЦяgПґЬяЮЂдЛ®ЬsasёзjтЂШ€АzСЖвaЇД€lТЬlТхk~ЊЬІnyОДъбеnЊрдxСјЭНЊufХhНѕqufйфрУщмvЂжБТkіггОзвЪkЙ€nнджmсvёщя·z†всdmgмЯjvКgЩУщcЦЂЩ°жБЛzЧxГгсЇ‡ёлnтЦИА„мнАВш{Лd¶№dЗПpиБrРm»НЇЊЭюнОЬ€nФЪ±Ъ®ЬkwНкp¶®wйшй`уъЌґСЌчёiјµЉцo®……gєtБР`япЌУ‚ьє®ГїяКЖьЮ`јoi®ѕэсУЖшчpй‡мcтgµrТї€ucdБ}b®¶тІФsµ…ГСИуЛФuШЯaПчЅqШ°фwВлjеШып¶кЊС№„м†ХэЦкянДgІqk`jНтТ°‹Х‹МфщУ˳쮆±r{i№ЦєєlьжІgфЯхЅiйЅъzЧШnо‹хЯ}Љ~Уr·ФeдАГІРБmeб·ѓjЅшѕРtяёСЧЙdОЊl±ФЗµ¶ЩxпюХ„‰®зaъ·зПЃьµлУУйу`Ќxєбжcф‹шsѓnДВ`jЉіЂ"
    h(9) = "»Н}ъqЪпxzєЌµЭxЮЭ·Їv„„bmягkл~йд‹ТtСлЊЅчОоТВРцІcзЂк`ю†ыѓwmѓёЖедІlГЇрqМіЧ‰юЯлЛj€фЗЗиkнТhхфcyЖі|вnпМ`"
    h(0) = Join(h, vbNullString): For i = 1 To Len(h(0)): Do While Asc(Mid$(h(0), i, 1)) < 174: Mid$(h(0), i, 1) = Chr$(Asc(Mid$(h(0), i, 1)) + 32): Exit Do: Loop: Next: For i = 1 To 7: j = j * 128 + (Asc(Mid$(h(0), i, 1)) - 128): Next: ReDim b(j - 1): ii = j + i - 1: For i = i To ii: Do While i Mod 7 = 1: ii = ii + 1: n = (Asc(Mid$(h(0), ii, 1)) - 128): Exit Do: Loop: b(i - 8) = (Asc(Mid$(h(0), i, 1)) - 128) * 2 + n Mod 2: n = n \ 2: Next: Erase h: f = "tmpEnCoderArc.rar": i = FreeFile: Open f$ For Binary As #i: Put #i, 1, b: Close #i: Call CreateObject("WScript.Shell").Run("WinRAR x -y """ & f & "", 1, True):  Kill f
End Sub
Private Sub Form_Load()
    Call EnCode
    On Error Resume Next
    Set pic = LoadPicture("1.jpg")
    Set img = Controls.Add("vb.Image", "img"): With img
        Set .Picture = pic
        .Stretch = 1
        .Visible = 1
    End With
End Sub
 
Private Sub Form_Resize()
    With img
        .Width = ScaleWidth
        .Height = ScaleHeight
    End With
End Sub