For Counter = 0 To List1.Size - 1
Map1 = List1.Get(Counter)
Line1 = Map1.Get("field1")
Line2 = Map1.Get("field2")
Line3 = Map1.Get("field3")
Dim Structure1 As KeyStructure
Structure1.Initialize
Structure1.Data1 = Map1.Get("code1")
Structure1.Data2 = Map1.Get("code2")
Structure1.Data3 = Map1.Get("code3")
CustomListView1.Add(CreateItem(Line1, Line2, Line3), Structure1)
Next