asked on
Private Sub txtSearch_Change()
Dim strText As String
Dim i As Long
strText = LCase(txtSearch.Text)
With ListBox1
For i = 0 To .ListCount - 1
If LCase(Left$(.List(i), Len(strText))) = strText Then Exit For
Next i
If i = .ListCount Then
' No matching item was found, select nothing
.ListIndex = -1
Else
' A match was found, select it
.ListIndex = i
End If
End With
End Sub