Деинсталировать: НЕТ
Разрегистрировать при деинсталляции: НЕТ

Если файл существует: Заменить/Заменить если новее/Пропустить

Деинсталировать: НЕТ
Разрегистрировать при деинсталляции: НЕТ

При деинсталляции их вообще не трогать.

исключительно в системных директориях

 1 ) Путь извлечения =%SystemDir%\COMCTL32.OCX

Я предлагаю регистрировать только новые версии системных библиотек 

 1 )Если файл существует: Заменить если новее
 2 )+зарегистрировать (даже если замены не было)

    If (StartParam.InPositionIcon >=  1 ) And (StartParam.InPositionIcon <=  13 ) Then
        With lvFormat
            .mask = LVCF_ORDER
            .iOrder = CInt(StartParam.InPositionIcon) -  1 
        End With
        Call SendMessage(ListView1( 0 ).hWnd, LVM_SETCOLUMN, ListView1( 0 ).ColumnHeaders("Icon").Index -  1 , lvFormat)
    End If
'    If (StartParam.InPositionIcon >= 1) And (StartParam.InPositionIcon <= 13) Then
'        ListView1(0).ColumnHeaders("Icon").Position = CInt(StartParam.InPositionIcon)
'    End If
и т.д. по тексту

Sub InitToolbar()
    Dim i As Integer
    Dim hToolbar As Long
    hToolbar = GetWindow(Toolbar1.hWnd, GW_CHILD)
    SetWindowLong hToolbar, GWL_STYLE, GetWindowLong(hToolbar, GWL_STYLE) Or TB_STYLE_FLAT
    For i =  0  To  34 
        ImageListToolBar.ListImages.Add , PictureToolBar(i).Tag, PictureToolBar(i).Picture
    Next i
    For i =  1  To  23 
        With Toolbar1.Buttons(i)
            If Len(.Key) >  0  Then
                .image = .Key
            End If
        End With
    Next i
End Sub

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
    Dim st As Long, pt As Long
    
    st = GetDC(TabStrip1.hwnd)
    pt = GetPixel(st,  2 ,  5 )
    
    FrameInTab.BackColor = pt
    Label1.BackColor = pt
...
End Sub

 
Private Sub Form_Activate()
   Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Command1_Click 'код выше
    Timer1.Enabled = False
End Sub

   Dim hToolbar As Long
    hToolbar = GetWindow(Toolbar1.hWnd, GW_CHILD)
     SetWindowLong hToolbar, GWL_STYLE, GetWindowLong(hToolbar, _
        GWL_STYLE) Or TB_STYLE_FLAT

    Const WM_USER = &H400
    Const TB_SETSTYLE = WM_USER +  56 
    Const TB_GETSTYLE = WM_USER +  57 
    Const TB_AUTOSIZE = (WM_USER +  33 )
    Const TB_SETBUTTONSIZE = (WM_USER +  31 )
    Call SendMessage(Toolbar1.hWnd, TB_AUTOSIZE,  0 ,  0 )

    TranspContainer1.BackColor = vbMagenta
    TranspContainer1.TransparentColor = vbMagenta

Call CreateDisImageList
Call AddDisImageListBitmap(LoadResPicture("toolbar", vbResBitmap), vbMagenta)

Public Sub CreateDisImageList(Optional lWidth As Integer =  16 , Optional lHeight As Integer =  16 )
    If m_hDisImageList<> 0  Then ImageList_Destroy m_hDisImageList
    m_hDisImageList = ImageList_Create(lWidth, lHeight, ILC_COLOR32 Or ILC_MASK,  1 ,  1 )
    SendMessage m_hToolbar, TB_SETDISABLEDIMAGELIST,  0 , ByVal m_hDisImageList
End Sub

Public Function AddDisImageListBitmap(ByVal hBitmap As Long, Optional ByVal MaskColor As Long = CLR_NONE) As Long
    If m_hToolbar <>  0  And m_hImageList <>  0  Then
        If (MaskColor <> CLR_NONE) Then
            AddDisImageListBitmap = ImageList_AddMasked(m_hDisImageList, hBitmap, MaskColor)
        Else
            AddDisImageListBitmap = ImageList_Add(m_hDisImageList, hBitmap,  0 )
        End If
    End If
End Function