beyler başlıktaki gibi listede aranan kelimeyi en uste almam lazım atıyorum listede şu itemler ekli : Babacık , Babacı , Baba , ba

ben text boxa baba yazdığım zaman babacık babacı ve baba en uste cıkacak boyle bir şey lazım aslında elimde bir kod var ama en uste cıkarmıyor ve sadece 1 tanesini gosteriyor :

Kod:
Public Function ListBoxtaAra(lstObject As ListBox, strTemp As String, Optional bMatch As Boolean = True) As Integer Dim lngReturn As Long With lstObject If bMatch Then lngReturn = SendMessage(.hWnd, &H1A2, -1, ByVal strTemp) Else lngReturn = SendMessage(.hWnd, &H18F, -1, ByVal strTemp) End If ListBoxtaAra = lngReturn .ListIndex = lngReturn End WithEnd Function
__________________