<code>Option Explicit
 
<font color=green>' Schnelle Suche innerhalb einer ListBox</font>
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _
        As Long, ByVal wParam As Long, ByVal lParam As _
        String) As Long
 
Private Const LB_FINDSTRING = &H18F
 
<font color=green>' Prüft, ob ein Wert in einer ListBox enthalten ist
' und gibt als Ergebnis den ListIndex zurück
' (-1, wenn nicht vorhanden)</font>
Public Function IsInListe(Liste As ListBox, _
  ByVal Item As String) As Integer
 
  IsInListe = SendMessage(Liste.hwnd, _
    LB_FINDSTRING, -1, Item)
End Function
 
<font color=green>' Zeichen auswerten</font>
Private Sub List1_KeyPress(KeyAscii As Integer)
  Dim iIndex As Integer
 
  If KeyAscii = 13 Then
    <font color=green>' manuelle Suche starten</font>
    KeyAscii = 0
    iIndex = IsInListe(List1, Text1.Text)
    If iIndex >= 0 Then List1.ListIndex = iIndex
    Text1.Text = ""
  ElseIf KeyAscii = 27 Then
   <font color=green>' ESC - bisherige Eingabe löschen</font>
   KeyAscii = 0
   Text1.Text = ""
  Else
    <font color=green>' Eintrag in unsichtbare Textbox</font>
    Text1.Text = Text1.Text + Chr$(KeyAscii)
    KeyAscii = 0
  End If
End Sub</code>