Public Function getECBCurrencyExchanges(ByVal WebAddress As String) As Array
      Try
         Dim xr As XElement = XElement.Load(WebAddress)
         Dim xn As XNamespace = xr.Attribute("xmlns").Value
 
         Dim xECBs = From ECB In xr.Descendants(xn + "Cube") _
                     Where ECB.Attribute("currency") IsNot Nothing _
                     AndAlso ECB.Attribute("rate") IsNot Nothing _
                     Select ECBCurrency = ECB.Attribute("currency"), _
                            ECBRate = ECB.Attribute("rate")
 
         Return xECBs.ToArray
      Catch ex As Exception
         Throw ex
      End Try
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control