There is a ListBox with several Items.
I need to Delete all ListItems Text = "*"

I try with following code

Code:
Private Sub RemoveReservedPalletFromLV()
    Dim l As Long
    
    Dim li As MSComctlLib.ListItem
    
    For Each li In lv.ListItems
        If li.Text = "*" Then
            lv.ListItems.Remove (li.Index)
        End If
    Next
End Sub
This pice of code gives an error

"control collection has been modified"

Can any one help me

Thank u in Advance

Dinesh