Я пытаюсь удалить все элементы из списка со списком, которые начинаются с "~ $0$quot;.

For Each item As String In cstmcmbxDocs.Items
    If Not cstmcmbxDocs.Items.Contains("~$") Then
    Dim STR As Int16 = cstmcmbxDocs.FindString("~$")
    'gets the index of the item which contains "~$"
    cstmcmbxDocs.Items.RemoveAt([STR])
    End If
Next

Но он возвращает только один экземпляр, который удаляет. Он не продолжает искать - что мне здесь не хватает? (Обратите внимание, что я использую 3.5, а не 4+, потому что он должен быть совместим с XP)