Private Sub Text1_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Text1.TextChanged
        Dim i As Integer
        For i = 0 To List2.Items.Count - 1
            If Text1.Text = ??? Then
                ????   
            End If
        Next
    End Sub

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7