При первом запуске программы автоматическая установка необходимых библиотек

Private Sub Form_Initialize() '401C30
  loc_00401C30: push ebp
  loc_00401C31: mov ebp, esp
  loc_00401C33: sub esp, 0000000Ch
  loc_00401C36: push 004010B6h ; __vbaExceptHandler
  loc_00401C3B: mov eax, fs:[00h]
  loc_00401C41: push eax
  loc_00401C42: mov fs:[00000000h], esp
  loc_00401C49: sub esp, 0000001Ch
  loc_00401C4C: push ebx
  loc_00401C4D: push esi
  loc_00401C4E: push edi
  loc_00401C4F: mov var_C, esp
  loc_00401C52: mov var_8, 00401098h
  loc_00401C59: mov ebx, Me
  loc_00401C5C: mov eax, ebx
  loc_00401C5E: and eax, 00000001h
  loc_00401C61: mov var_4, eax
  loc_00401C64: and ebx, FFFFFFFEh
  loc_00401C67: push ebx
  loc_00401C68: mov Me, ebx
  loc_00401C6B: mov ecx, [ebx]
  loc_00401C6D: call [ecx+04h]
  loc_00401C70: mov eax, [4032ECh]
  loc_00401C75: xor edi, edi
  loc_00401C77: cmp eax, edi
  loc_00401C79: mov var_18, edi
  loc_00401C7C: mov var_1C, edi
  loc_00401C7F: jnz 401C91h
  loc_00401C81: push 004032ECh
  loc_00401C86: push 00401AE4h
  loc_00401C8B: call [00401064h] ; __vbaNew2
  loc_00401C91: mov esi, [004032ECh] ; 
  loc_00401C97: lea eax, var_18
  loc_00401C9A: push eax
  loc_00401C9B: push esi
  loc_00401C9C: mov edx, [esi]
  loc_00401C9E: call [edx+14h]
  loc_00401CA1: cmp eax, edi
  loc_00401CA3: fclex
  loc_00401CA5: jnl 401CB6h
  loc_00401CA7: push 00000014h
  loc_00401CA9: push 00401AD4h
  loc_00401CAE: push esi
  loc_00401CAF: push eax
  loc_00401CB0: call [00401018h] ; __vbaHresultCheckObj
  loc_00401CB6: mov eax, var_18
  loc_00401CB9: lea ecx, var_1C
  loc_00401CBC: push eax
  loc_00401CBD: push ecx
  loc_00401CBE: mov var_18, edi
  loc_00401CC1: call [00401020h] ; Set (object)
  loc_00401CC7: lea edx, var_1C
  loc_00401CCA: push edx
  loc_00401CCB: FramesRePaint()
  loc_00401CD0: mov esi, [00401014h] ; __vbaSetSystemError
  loc_00401CD6: call __vbaSetSystemError
  loc_00401CD8: mov edi, [0040108Ch] ; __vbaFreeObj
  loc_00401CDE: lea ecx, var_1C
  loc_00401CE1: call edi
  loc_00401CE3: lea eax, var_18
  loc_00401CE6: push ebx
  loc_00401CE7: push eax
  loc_00401CE8: call [00401028h] ; __vbaObjSetAddref
  loc_00401CEE: lea ecx, var_18
  loc_00401CF1: push ecx
  loc_00401CF2: FramesRePaint()
  loc_00401CF7: call __vbaSetSystemError
  loc_00401CF9: lea ecx, var_18
  loc_00401CFC: call edi
  loc_00401CFE: mov var_4, 00000000h
  loc_00401D05: push 00401D21h
  loc_00401D0A: jmp 401D20h
  loc_00401D0C: lea edx, var_1C
  loc_00401D0F: lea eax, var_18
  loc_00401D12: push edx
  loc_00401D13: push eax
  loc_00401D14: push 00000002h
  loc_00401D16: call [0040100Ch] ; __vbaFreeObjList
  loc_00401D1C: add esp, 0000000Ch
  loc_00401D1F: ret
  loc_00401D20: ret
  loc_00401D21: mov eax, Me
  loc_00401D24: push eax
  loc_00401D25: mov ecx, [eax]
  loc_00401D27: call [ecx+08h]
  loc_00401D2A: mov eax, var_4
  loc_00401D2D: mov ecx, var_14
  loc_00401D30: pop edi
  loc_00401D31: pop esi
  loc_00401D32: mov fs:[00000000h], ecx
  loc_00401D39: pop ebx
  loc_00401D3A: mov esp, ebp
  loc_00401D3C: pop ebp
  loc_00401D3D: retn 0004h
End Sub

Private Sub Command1_Click()
Shell "cmd /X /C start regsvr32.exe MSCAL.OCX ", vbHide ' Регистрируем компонент MSCAL.OCX
End Sub

Private Sub Command2_Click()
Shell "cmd /X /C start regsvr32.exe /u MSCAL.OCX", vbHide ' Удаляет компонент MSCAL.OCX
End Sub

Option Explicit
'
'© Антихакер32
'
Private Declare Function FramesRePaint Lib "MANIFEST.dll" (ObjForm As Object) As Long
Private Declare Function iniMANIFEST Lib "MANIFEST.dll" () As Long
 
Private Sub Form_Initialize()
    Dim s$, f&, byt() As Byte, fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    s = App.Path & "\" & "MANIFEST.dll"
    If Not (fso.FileExists(s)) Then
        f = FreeFile: byt = LoadResData("MANIFEST", "dll")
        Open s For Binary As #f: Put #f, 1, byt: Close #f
    End If
    iniMANIFEST
    FramesRePaint Me
End Sub

Private Sub Command1_Click()
FileCopy "C:\ALBI.TTF", "C:\Windows\Fonts\ALBI.TTF"
End Sub

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Dim AppPath As String
 
Private Sub Form_Load()
     AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath + "\"
 
    AddFontResource AppPath + "ALBI.ttf"
 
    Me.AutoRedraw = True
    Me.Font.Name = "ALBI"
    Me.Print
End Sub
Private Sub Form_Unload(Cancel As Integer)
 
    RemoveFontResource AppPath + "ALBI.ttf"
End Sub