Option Strict
Option Explicit
Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
Public Shared Sub Main()
Dim doc As New XmlDocument()
doc.LoadXml("" & _
"C# " & _
"")
Dim root As XmlNode = doc.FirstChild
Dim ns As String = root.GetNamespaceOfPrefix("bk")
Dim attr As XmlNode = doc.CreateNode(XmlNodeType.Attribute, "genre", ns)
attr.Value = "Computer"
root.Attributes.SetNamedItem(attr)
doc.Save(Console.Out)
End Sub 'Main
End Class 'Sample