;H4&amp;
Private Const ILC_COLOR8 = &amp;H8&amp;
Private Const ILC_COLOR16 = &amp;H10&amp;
Private Const ILC_COLOR24 = &amp;H18&amp;
Private Const ILC_COLOR32 = &amp;H20&amp;
Private Const ILC_PALETTE = &amp;H800&amp;

Private Declare Function ImageList_Destroy Lib "comctl32.dll" ( _
        ByVal hIml As Long _
    ) As Long

' Add a masked bitmap to an image lisf
Private Declare Function ImageList_AddMasked Lib "comctl32.dll" ( _
        ByVal hIml As Long, _
        ByVal hBmp As Long, _
        ByVal cr