انتخاب سطر لیست باکس بر اساس تکست باکس

[پیمان طهماسبی]

با سلام
من سوابق را نگاه کردم سرچ در لیست باکس بود. بطوریکه همه آنها براساس متن داده های لیست باکس را فیلتر می کردند.
ولی من می خوام بر اساس متن تایپ شده و با زدن کلید جستجو داده مورد نظر در لیست باکس انتخاب ( هایلایت ) شود ( فایل نمونه پیوست آورده ام )
با تشکر

[M_ExceL]

با سلام
من سوابق را نگاه کردم سرچ در لیست باکس بود. بطوریکه همه آنها براساس متن داده های لیست باکس را فیلتر می کردند.
ولی من می خوام بر اساس متن تایپ شده و با زدن کلید جستجو داده مورد نظر در لیست باکس انتخاب ( هایلایت ) شود ( فایل نمونه پیوست آورده ام )
با تشکر

با سلام،
خدمت شما :

Private Sub CmbFind_Click()

For i = 0 To Me.LstData.ListCount - 1
If LCase(Me.TxtFind.Text) = LCase(Me.LstData.List(i, 0)) Then
Me.LstData.Selected(i) = True
Exit For
End If
Next

End Sub