Sub autoCompleteEditText1_TextChanged (Old As String, New As String)
If New = "" Then
Return
End If
tmpList.Clear
Dim tmpStr As String
For i = 0 To originalList.Size - 1
tmpStr = originalList.Get(i)
If tmpStr.ToLowerCase.StartsWith(New.ToLowerCase) Then
tmpList.Add(originalList.Get(i))
End If
Next
End Sub