XNamespaceクラス
https://docs.microsoft.com/zh-cn/dotnet/api/system.xml.linq.xnamespace?view=netframework-4.8
XML名前空間を表します。このクラスは継承できません。
Dim root As New XElement( "Company"、_
New XAttribute( "Type"、 "Publisher")、_
New XElement( "CompanyName"、 "Wrox")、_
New XElement( "CompanyAddress"、_
New XElement( "Street "、" 111 River Street ")、_
New XElement(" city "、" Hoboken ")、_
New XElement(" State "、" NJ ")、_
New XElement(" Counttr "、"USA ")、_
新しいXElement(" Zip "、" 07030-5774 ")))
Console.WriteLine(root.ToString)
Console.WriteLine( "Prss ENTER to exit")
Console.Read()