Imports System.Runtime.CompilerServices
 
Module LinqToXMLExtension
 
   Private NameSpaceToUse As XNamespace = XNamespace.None
 
   <Extension()> _
   Public Sub XElementNS(ByVal x As XElement, ByVal TargetNamespace As _
   XNamespace)
      NameSpaceToUse = TargetNamespace
   End Sub
 
   <Extension()> _
   Public Function n(ByVal x As XElement, ByVal TagName As String) As XElement
      Return x.Element(NameSpaceToUse + TagName)
   End Function
 
End Module

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