Sub vehiclesCLV_AddItems
'Log("AddItems")
ProgressDialogShow("Loading...")
Dim currentNumberOfItems = vehiclesCLV.GetSize
For i = currentNumberOfItems To Min(currentNumberOfItems + qtyRows, makes.Size-1)
vehiclesCLV.Add(createListItem(makes.Get(i)), 62dip, "Item #t" )
Next
ProgressDialogHide
End Sub