Dim lhInstance&, lhIcon
    Dim hImage&, nResult&, hResource&
    Dim nFlags&, hImageList&, hIcon&
    Dim intIconsAmount%
    Dim intIconSizeX%, intIconSizeY%
    intIconSizeX =  16 : intIconSizeY =  16 
'Load library
    lhInstance = LoadLibrary(App.Path & "\ResourcesDLL.dll")
'Init image list
    nFlags = IIf(True, ILC_COLOR32 Or ILC_MASK, ILC_COLOR24 Or ILC_MASK)
    hImageList = ImageList_Create(intIconSizeX, intIconSizeY, nFlags,  0 ,  1 )
    If hImageList <>  0  Then
        intIconsAmount =  0 
        hImage = LoadImageAsString(lhInstance, "AddRecord", IMAGE_ICON, intIconSizeX, intIconSizeY, LR_SHARED)
        If hImage <>  0  Then
            nResult = ImageList_AddIcon(hImageList, hImage)
            intIconsAmount = intIconsAmount +  1 
            hIcon = ImageList_GetIcon(hImageList, intIconsAmount -  1 , ILD_NORMAL)
            If hIcon <>  0  Then
            'Добавляем иконку
                ......
            '"Убиваем" иконку
                DestroyIcon hIcon
            End If
        End If
    End If
    ImageList_Destroy hImageList
    FreeLibrary lhInstance

':Image list
Public Const ILC_MASK = &H1
Public Const ILD_NORMAL =  0 

Public Const LR_LOADMAP3DCOLORS = &H1000
Public Const LR_CREATEDIBSECTION = &H2000
Public Const LR_LOADFROMFILE = &H10
Public Const LR_LOADTRANSPARENT = &H20
Public Const LR_COPYRETURNORG = &H4
Public Const LR_SHARED = &H8000&

Public Enum eilColourDepth
    ILC_COLOR = &H0
    ILC_COLOR4 = &H4
    ILC_COLOR8 = &H8
    ILC_COLOR16 = &H10
    ILC_COLOR24 = &H18
    ILC_COLOR32 = &H20
End Enum

Public Enum ImageTypes
  IMAGE_BITMAP =  0 
  IMAGE_ICON =  1 
  IMAGE_CURSOR =  2 
End Enum

Public Declare Function ImageList_Create Lib "COMCTL32.DLL" (ByVal cX As Long, ByVal cY As Long, ByVal flags As Long, ByVal cInitial As Long, ByVal cGrow As Long) As Long
Public Declare Function ImageList_Destroy Lib "COMCTL32.DLL" (ByVal hIml As Long) As Long
Public Declare Function ImageList_AddIcon Lib "COMCTL32" (ByVal hIml As Long, ByVal hIcon As Long) As Long
Public Declare Function ImageList_AddMasked Lib "COMCTL32.DLL" (ByVal hIml As Long, ByVal hbmImage As Long, ByVal crMask As Long) As Long
Public Declare Function ImageList_GetIcon Lib "COMCTL32" (ByVal hImageList As Long, ByVal ImgIndex As Long, ByVal fuFlags As Long) As Long
Public Declare Function DestroyIcon Lib "USER32" (ByVal hIcon As Long) As Long
Public Declare Function LoadIcon Lib "user32.dll" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long
Public Declare Function LoadImage Lib "USER32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Public Declare Function LoadImageLong Lib "USER32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Public Declare Function FindResource Lib "kernel32.dll" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long
Public Declare Function LoadImageAsString Lib "USER32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal uType As Long, ByVal cxDesired As Long, ByVal cyDesired As Long, ByVal fuLoad As Long) As Long

Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long