Sub LeggiXML(Percorso As String,FileXML As String) As List
Dim xm As Xml2Map
xm.Initialize
ParsedData = xm.Parse(File.ReadString(Percorso, FileXML))
Dim rss As Map = ParsedData.Get("rss")
Dim channel As Map = rss.Get("channel")
Dim items As List = channel.Get("item")
For Each item As Map In items
Dim title As String = item.Get("title")
Dim link As String = item.Get("link")
List1.AddSingleLine2(title, link)
Next
Return List1
End Sub
