HelpListbox

Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_Change()
If Trim(Text1.Text) <> "" Then
For I = 0 To List1.ListCount - 1
If Left(List1.List(I), Len(Trim(Text1.Text))) = _
Trim(Text1.Text) Then
List1.Selected(I) = True
Else
List1.Selected(I) = False
End If
Next I
End If
End Sub

1. Place This Code into a Coding Area of a form with a
Text box and list box
2. Add some items to the list property of the list box
As more as possible
3. Change the Sorted property of the listbox to "True"
4. Change the Multiselect property of the listbox to "1"

Run the Program and Type first one or two letters in Text Box
see it..... Enjoy it