سرچ در لیست باکس

سلام به همه من با vbیه اتوران ساختم شبیه اتوران های لرد و گردو و ... حالا تو قسمت سرچ گیر کردم اگه کسی پروژه ای در این رابطه داره یا میتونه کمک کنه هر چه زودتر جواب بده



2.من کنترل Web Browser رو برای راهنمای نرم افزار ها اوردم حالا برای فایل های Html کار نمیکنه یعنی اونارو نمایش میده

ممنون

شاید این کمکت کنه
متن توی تکست باکس رو در لیست باکس جستجو میکنه:

Private Sub Text1_Change()
If List1.ListCount > 1 Then
For i = List1.ListCount To 0 Step -1
If Left(List1.List(i), Len(Text1.Text)) = Text1.Text Then
List1.ListIndex = i
End If
Next
End If
End Sub

اگه با vb6 ساختی صرفه نظر از بقیه چیزا ، به خاطر نیاز به کامپوننت های وی بی این کار درست نیست