>>264
こんなものに知恵なんか使うか、理屈ばっかりで頭は良くないな。
Dim i As Integer = 0
Do
　　If ListBox1.Items(i).ToString.Equals(TextBox1.Text) Then
　　　　　ListBox1.Items.RemoveAt(i)
　　Else
　　　　　i += 1
　　End If
Loop While (i < ListBox1.Items.Count)