<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
  color=#000099>Function</font> SendMessage <font color=#000099>Lib</font> _
  "user32" <font color=#000099>Alias</font> _
  "SendMessageA" (<font color=#000099>ByVal</font> hwnd <font _
  color=#000099>As</font> <font color=#000099>Long</font>, <font _
  color=#000099>ByVal</font> wMsg <font color=#000099>As</font> <font _
  color=#000099>Long</font>, _
  <font color=#000099>ByVal</font> wParam <font color=#000099>As</font> <font _
  color=#000099>Long</font>, <font color=#000099>ByVal</font> lParam <font _
  color=#000099>As</font> <font color=#000099>String</font>) <font _
  color=#000099>As</font> <font color=#000099>Long</font>
 
<font color=#000099>Private</font> <font color=#000099>Const</font> _
  LB_FINDSTRINGEXACT = &H1A2
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=#000099>Dim</font> Index <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
  Index = SendMessage(List1.hwnd, LB_FINDSTRINGEXACT, -1, Text1.Text)
  <font color=#000099>If</font> Index >= 0 <font color=#000099>Then</font>
    List1.ListIndex = Index
  <font color=#000099>Else</font>
    MsgBox "Nicht vorhanden!"
  <font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Load()
  <font color=green>' mit Testzahlen füllen</font>
  Randomize -Timer
 
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> Zahl <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
  <font color=#000099>For</font> I = 1 <font color=#000099>To</font> 100
    Zahl = Int(1000 * Rnd + 1)
    List1.AddItem <font color=#000099>CStr</font>(Zahl)
  <font color=#000099>Next</font> I
<font color=#000099>End</font> <font color=#000099>Sub</font></code>