no Icon on xtpControlPopup

Hello,

I run this code:
Set Control = AddControl(ControlFile.CommandBar.Controls, xtpControlPopup, MENU_History, "&History", True)

Public Function AddControl(Controls As CommandBarControls, ControlType As XTPControlType, ID As Long, Caption As String, Optional BeginGroup As Boolean = False, Optional DescriptionText As String = "", Optional ButtonStyle As XTPButtonStyle = xtpButtonAutomatic, Optional Category As String = "Controls", Optional InitialAddition As Boolean = True) As CommandBarControl
    Dim Control As CommandBarControl
    Set Control = Controls.Add(ControlType, ID, Caption)
    Control.ID = ID
...
end function

everything works finde, BUT, i dont get an Icon for this xtpControlPopup. All other Icons work fine, but not on xtpControlPopup.

what am i doing wrong?

thank you

thank you. that did it