CommonControls (Replacement of the MS common controls)

[lrd_VB6]

Hello,

happy to have made the project forward.

Another little detail to "tease"
In the following code:

If ImageListHandle = 0 Or (PropImageWidth = 0 Or PropImageHeight = 0) Then
        If PropImageWidth = 0 Then PropImageWidth = UserControl.ScaleX(Picture.Width, vbHimetric, vbPixels)
        If PropImageHeight = 0 Then PropImageHeight = UserControl.ScaleY(Picture.Height, vbHimetric, vbPixels)
        If ImageListHandle = 0 Then Call CreateImageList
End If

The first test is unnecessary.

By cons, it is important to leave last
If ImageListHandle = 0 Then Call CreateImageList

Last, I'd like able to benefit from your internal routines to implement the subclassing by the method of your choice (usercontrol, class or other)
To manage the mouse wheel by example.

Good luck and thank you for your work.