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