Option Explicit
'
'Калькулятор (by the fever.brain 2017)
'
Const r = 90
 
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SendMessage

Option Explicit
Sub EnCode()
    Dim b() As Byte, i&, j#, ii&, n&, f$, h$(): ReDim h$(12): On Error Resume Next: ChDir App.Path: If Len(Dir("10.ico")) > 0 Then Exit Sub
    h(0) = "`````Тс‰°№pmc`зИ№``f```````ЉwєpАs`Њb``ыd``aЗујлs„Е}nzc`pp``xxwґ±·gnЊЉfЕжЂ±»КЪЦѓйЛРЮl·wѓЇТЂТХuuВuАБЪ€ґТбп`шІ±wБДosЂшrжqа±m±ЃrqиuРmґиЖЂІУtЃнzeЃъlё№ъfЪзеЛС{жчѕує№xпцжВХiПутллъЮµЙОтуяуж·‡й№фдюрФэыЯэЌзЮ№нПpbppЂllµфАцфѓ‡}Рі|ІxЫв‡јёРрlшШНhaу¶т»`d~гtmЙлрkb‹b¶Вжj…°ПqАґмeРРЫЖвЭqЭuхгxcѕvВ±оъЩИ‚єдґЧДЧlщИЦ±КьyЮбічГЮkЗъВґ®ЦЭ·fБо°‰ъоєeВабдcdАfі€хюѕГЗoжСя‹}ъЮлpЗу{b№г°„ґчЛуСЭwЕ€¶ЅдОЃf€ј»ЪЅрoхо»спo·лПѓяМТ||ЂИю‚u‰ОЊ}жaіиВcЂkиКsЫѕn~ЭлФф}х·‡pьХпы°БdХn`‚шИЮЫnсЛюwАzдјуяp‡ёПючpщјы}цЮєХфБЂЪИЧЬbОѕрruчаxв®frішмїЩряхпЮКІЩнЦЪїoзиѕнЯЙЯуi…¶хЦwЊ`wКпыbЩЙ¶х‰эЇО†pwк‚щ„dјґъoЬщґ†q†йјКbЉsЖчдцїСЗкЂ~®ЊјtТъs~gэѓБ‹s·ПіуОe†{јЊґЗ‹зМиЉiыГµзмµqcдЮ‡РШлґѓнvЗЧЌjyХtfЕТшФzєНtЅФ№рмhс~Ашй„фgЩФЮ‰ъЅЊН…s}}s€zcЇіЮВнФкФіфйјx}ЮiЃрьЇЇЙр‚Мцqоµ±bжиeсВзѕЇу|жґmyЫ·|`nГзьєЦ¶Щ»®ХТЗъВЊgЦАНїс|scоф·ССУ‡цЭµpеаf¶ЭЂг®ІП®ДгЃm†p®€»·rКоfр®‹…щЛГ‰уly…БЕзІГМjyѕ‹ЫіlЖty…шэµії}шТЌКlзфБЉрз‹dез‹qЮ`елqyЂп‹Љ~оЕлЭНЫ`Саlѓїnеаiюѓ°vбifѕ€єъbґЭuуЩoЌ}МЧЭЉ‚ґДn»hЅЃШqјПБЮk}jьъы…УјЛХzыЖбЩбdэДaТЯыґuНѓДЭbжuяЯеїгь‹Упы€rzУЕdјхм·xЇјИ№швОЃpЇШОт°vычшбЮґvсЉНЪqЃЊdС{`ѓјusјјµЫл†БЯ·rs"

Sub RePaint(Optional ByVal Frame As Object): Const ii = 9, ll = 45: Static i&, v, w, d As Object, j(ii) As Object: Do While j(ii) Is Nothing: Set j(ii) = Controls.Add("vb.label",