ListView

[dineshns]

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

I try with following 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

[Thread1]

I think you are looking for something like this..

Private Sub RemoveReservedPalletFromLV()
Dim i&
    
  i = 1
  While i < lvw.ListItems.Count
    If lvw.ListItems(i).Text = "*" Then
      lvw.ListItems.Remove i
    Else
      i = i + 1
    End If
  Wend
  
End Sub