CommonControls (Replacement of the MS common controls)

[chosk]

A workaround solution would be to do following during Form_Load, then you have the correct height immediately:

Private Sub Form_Load()
Set ToolBar1.ImageList = ToolBar1.ImageList
Debug.Print "Form_Load: " & ToolBar1.Height

Beside this workaround there is no other immediate solution now possible.

This workaround did the trick. Thank you.

Actually, I did try the MS toolbar control earlier and it did size correctly to 28x28 icons on launch (with and without text).