Bug: Images wrong when read from ImageList

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Codejock 15.3.1

Strange behavior of the CommandBar: if I add in menu item an image taken from a ImageList (Common Controls 6.0) then it is that loading the same image from the same ImageList into a Form, image become corrupt.
Images attached shows the problem.

Below, is the code that I use to add item to menu:

With ControlFile.CommandBar.Controls    Set Control = .Add(xtpControlButton, ID_16_AREE, "Aree commerciali")
    SetImageControlFromImageList CommandBars1, IML, "aree", ID_16_AREE
End With

This is the function to get image from ImageList:

Public Sub SetImageControlFromImageList(cmdbar As CommandBars, ByVal IML As Object, ByVal sKey As String, ByVal ControlID As Long)    cmdbar.Icons.AddIcon IML.ListImages(sKey).ExtractIcon.Handle, ControlID, xtpImageNormal
End Sub

On ImageList, image is a 16x16 (only) ICO format, with 256 colors:

On Form_Load, set the icon form:

Me.Icon = IML.ListImages("aree").Picture

Image on menu is OK.

Same image loaded on Form is corrupt. 

Instead, if not load image on menu, image on Form is OK:

Note that the problem always occurs. 

Why this  behavior ? It's a bug?
There is a way to avoid this?

Thank. 