xtpButtonIconAndCaption icon size problem

I have a toolbar which is set with icons at size 24x24  but I want one control to have icon at 16x16 and a caption below.

I use control.Style = xtpButtonIconAndCaptionBelow, but I find with this style I end up with an icon 24x24 EVEN if I set the icon in question and all the other icons to 16x16, this has the affect of making the whole toolbar higher

How can I set the icon to 16x16? I link to a zipped up example project exhibiting the problem

http://services.beacon-dodsworth.co.uk/iconsize_problem.zip

Dim toolbar As CommandBar
Dim control As CommandBarControl

Set toolbar = CommandBars.Add("MyToolbar", xtpBarTop)

CommandBars.ActiveMenuBar.Visible = False

CommandBars.Icons = ImageManager1.Icons

toolbar.SetIconSize 24, 24
'toolbar.SetIconSize 16, 16

toolbar.Controls.Add xtpControlButton, 100, ""
Set control = toolbar.Controls.Add(xtpControlButton, 101, "my button")
toolbar.Controls.Add xtpControlButton, 102, ""

control.Style = xtpButtonIconAndCaptionBelow
control.SetIconSize 16, 16

Thanks Oleg,

That does produce the affect I want, however what are the implications of setting this option?

I set the iconsize for each control and commandbar elsewhere in the menus and toolbars but I seem to remember that some of the codejock controls will reference off this large icon setting size and so will hence appear at 16x16 not say the perhaps desired 24x24?

Are you planning on altering this behaviour of xtpButtonIconAndCaptionBelow?

Could you advise me as to the implications of setting the workaround?