فوکوس در لیست باکس با توجه به عدد وارد شده در تکست باکس

[G.hemati]

با سلام
من یه لیست باکس دارم که مثلاً اعداد 1 الی 10 در آن وجود دارد

میخوام وقتی عددی در تکست باکس وارد میکنم ، در لیست باکس، ردیفی که برابر با این عدد است در حالت انتخاب قرار گیرد . ممنون میشم راهنمایی بفرمایین

همانند تصویر زیر :

[bita_ziba77]

با سلام
مي توانيد از كد زير استفاده نماييد:

Dim i As Integer
For i = 0 To Me.List0.ListCount - 1
If Me.List0.Column(1, i) = Me.Text2 Then
Me.List0.Selected(i) = True
End If
Next