How can I add an icon to an OCX made with Delphi so that it is visible in VB?

I made an OCX with Delphi 2007. Now my customer claims that there is no icon in his VB when he installs this OCX.

How can I add such an icon to my OCX?

Solution

According to this old page the constructor of TActiveXControlFactory in the initialization section of your ActiveX Control unit has a parameter called ToolbarBitmapID which is a resource id to a bitmap. That is how you set your icon.

Is it possible to retrieve attributes for an Enum value in Delphi 12?
Delphi - RTTI info about methods in records
Delphi 2010 RTTI : Explore Enumerations
How do I position a TOpenDialog
Request to Amazon API with delphi : Got HTTP/1.1 403 Forbidden
Return the root directory of Delphi executable
Resize images and save output
How can I make a file trully immutable (non-deletable and read-only)?
How to hide a column in TListview?
How to enumerate all controls hold by a TCategoryPanel?
Sorting ListView Groups?
How to permanently terminate Windows Explorer (the "explorer.exe" process)?
Delphi 2010: Group TListView items in vsReport ViewStyle
ListView showing blank items inside a group
TListView groups and items do not appear after clearing and reloading groups and items
How to dynamically add panels to TCategoryPanelGroup?
CategoryPanelGroup No Header
Why TCategoryPanel.controls[i].className always "TCategoryPanelSurface?
Order of TCategoryPanel into TCategoryPanelGroup
TCategoryPanelGroup, delete panel
TabOrder of TCategoryPanel into TCategoryPanelGroup
Remove tcategorypanel border
How to dynamically add buttons to TCategoryPanelGroup?
Add a IFileDialogCustomize PushButton Event
Need Recycle Bin Folder Name
Conditionally compile units for FMX or VCL
How to save JSONObject to JSON file in UTF‐8 encoding (RAD Studio/Delphi)?
Is there a way to turn off the Caption on a TDBRadioGroup
Enabling Single Sign On in TEdgeBrowser
How do I tell if a generic type is nil without using constraints in Delphi?