               lhBmpOld = SelectObject(lhDC, lhBmp)
               o.ListImages.Item(iImgIndex + 1).Draw lhDC, 0, 0, 0
               SelectObject lhDC, lhBmpOld
               DeleteDC lhDC
               lDishIml = ImageList_Create(o.ImageWidth, o.ImageHeight,
                ILC_MASK Or ILC_COLOR32, 1, 1)
               ImageList_AddMasked lDishIml, lhBmp, TranslateColor(o.BackColor)
               DeleteObject lhBmp
               hIcon = ImageList_GetIcon(lDishIml, 0, 0)
               ImageList_Destro