dim vorhanden as Boolean
start:
For u = 0 To lstsearch.ListCount - 1
If InStr(LCase$(lstsearch.List(u)), LCase$(txtsearch.Text)) = 0 Then
lstsearch.RemoveItem u
GoTo start:
End If
Next u
For i = 0 To lstcomp.ListCount - 1
If InStr(LCase$(lstcomp.List(i)), LCase$(txtsearch.Text)) <> 0 Then
For t = 0 To lstsearch.ListCount - 1
If lstsearch.List(t) = lstcomp.List(i) Then vorhanden = True
Next t
If vorhanden = True Then
vorhanden = False
Else
lstsearch.AddItem lstcomp.List(i)
End If
End If
Next i