Option Explicit
 
Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" ( _
   ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long
 
Private Const LB_FINDSTRING = &H18F
Private Const LB_FINDSTRINGEXACT = &H1A2
 
Private Sub Text1_Change()
   FindItem List1, Text1.Text
End Sub
 
Private Sub FindItem(LBox As Control, ByVal sItem As String, _
   Optional FindExact As Boolean = False)
 
   On Error Resume Next
 
   With LBox
      .ListIndex = SendMessage(.hwnd, IIf(FindExact, _
         LB_FINDSTRINGEXACT, LB_FINDSTRING), -1, ByVal sItem)
   End With
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control