Lists and Getting Rid of Multiple Items

[vbasicgirl]

i like this one, its really fast.

Private Declare Function SendMessageString Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Const LB_FINDSTRINGEXACT = &H1A2
 
 
Dim i As Integer
 
For i = List1.ListCount - 1 To 0 Step -1
 If SendMessageString(List1.hwnd, LB_FINDSTRINGEXACT, -1, ByVal List1.List(i)) <> i Then
  List1.RemoveItem i
 End If
Next i

casey.