Sub getXmlMap(xmlstring As String) As Map
Dim ParsedData As Map
Dim xm As Xml2Map
xm.Initialize
ParsedData = xm.Parse(xmlstring)
Return ParsedData
End Sub
Sub ListView1_MouseClicked (EventData As MouseEvent)
'...
Dim spreadMap As Map
spreadMap=getXmlMap(spreadString)
Dim root As Map
root=spreadMap.Get("idPkg:Spread")
Dim Spread As Map
Spread=root.Get("Spread")
Dim TextFramesList As List
TextFramesList=GetElements(Spread,"TextFrame")
Log(TextFramesList.Size)
'size:14
End Sub