'Manual filling of the search results with the RequestNewData event
Private Sub $AS_AutoComplete1$_RequestNewData(SearchText As String)
	
	Dim lstItems As List
	lstItems.Initialize
	For i = 0 To 10 -1
		lstItems.Add($AS_AutoComplete1$.CreateItem("Test " & i,Null,i))
	Next
	
	$AS_AutoComplete1$.SetNewData(lstItems)
	
End Sub