CommonControls (Replacement of the MS common controls)

[Krool]

tests.zip

Hello

My test program crashes with your ocx control.
why?

You forgot a point (".") before the 'Count'.

So, instead of this:

Private Sub Create_ListView_OCX()
    Dim nb As Long

    With ListView_OCX.ListItems

        If Count Then
            .Clear
        End If

do like following:

Private Sub Create_ListView_OCX()
    Dim nb As Long

    With ListView_OCX.ListItems

        If .Count Then
            .Clear
        End If