Private Sub Command1_Click()
  Dim i As Integer
  Dim sText As String
 
  sText = "Hallo"
  For i = 0 To List1.ListCount - 1
    If List.List(i) = sText Then
      List1.RemoveItem i
      Exit For
    End if
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de