Dim ObjEnt As AcadEntity
    Dim i As Long
 
    For Each ObjEnt In LaSet
        Set LItem = ListView1.ListItems.Add()
        LItem.Text = ""
        LItem.SubItems(1) = ObjEnt.Layer
 
            With ListView1.ListItems
                'i = i + 1
                For i = 1 To .Count
                    If .Item(i).SubItems(1) = LItem.SubItems(1) Then
 
                    Else
                        i = i + 1
                        ListView1.ListItems.Remove i
                    End If
                Next i
            End With
    Next

VG

Dirk