Private Sub Text1_Change()
  Dim i As Integer
  Dim sSearchFor As String
  sSeachFor = LCase(Text1.Text) & "*"
  For i = 0 To List1.ListCount - 1
    If LCase(List1.List(i)) Like sSearchFor Then
      Exit For
    End If
  Next i
End Sub

Private Function Einlesen(ByVal sFile As String, ByRev vListBox As ListBox) As _
  Boolean
  On Error Goto Fehler
  Dim No As Integer, sLine As String
  No = FreeFile
  vListBox.Clear
  Open sFile For Input As No
  While Not Eof(No)
    Line Input #No, sLine
    If Instr(1, sLine, "=") > 0 Then
      vListBox.AddItem(Left(sLine, Instr(1, sLine, "=") - 1)
    End If
  Wend
  Close No
  Einlesen = True
  Exit Function
Fehler:
  Reset
End Function

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.