Private Sub Text1_Change()
  Dim i As Integer
  Dim sSearchFor As String
  ' Such-Zeichenkette vorbereiten
  sSearchFor = LCase(Text1.Text) & "*"
  ' alle Einträge der Listbox durchgehen
  For i = 0 To List1.ListCount - 1
    ' vergleichen
    If LCase(List1.List(i)) Like sSearchFor Then
      ' dieser Eintrag fängt mit der Zeichenkette in Text1 an
      List1.ListIndex = i ' Eintrag markieren
      ' Eintrag gefunden, aus Schleife rausspringen
      Exit For
    End If
  Next i
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.