[VB6] ucShellTree - Full-featured Shell Tree UserControl

[Mith]

Maybe try ILD_SCALE and/or ILD_DPISCALE as additional flags in EnsureOverlay->imlSysJM.GetIcon nOvr, ILD_TRANSPARENT, hIcon
If that doesn't help, the only remedy would be a lot of fragile manual sizing that would likely then wind up looking wrong on other people's systems.

I fixed the overlay icon size problem in your code:

At Sub "InitImageLists" change:

Call SHGetImageList(SHIL_JUMBO, IID_IImageList, imlSysJM)

back to:

Call SHGetImageList(SHIL_SMALL, IID_IImageList, imlSysJM)

But this will break icon size property. A icons size >16 is not possible anymore.
I guess you have to use a separate ImageList for the overlay icons because they only use 16x16.