Namespace XmlTest


Sub TestMain()
	Dim doc = New System.Xml.XmlDocument()
	doc.AppendChild( doc.CreateXmlDeclaration( "1.0", "UTF-8", Nothing ) )
	doc.AppendChild( doc.CreateElement( "root" ) )
	doc.ChildNodes[1].AppendChild( doc.CreateElement( "test" ) )

	Dim attr1 = doc.CreateAttribute( "attr1" )
	attr1.Value = "123"
	doc.ChildNodes[1].Attributes.Add( attr1 )
	Dim attr2 = doc.CreateAttribute( "attr2" )
	attr2.Value = "456"
	doc.ChildNodes[1].Attributes.Add( attr2 )

	System.Diagnostics.Debug.WriteLine( doc.OuterXml() )
End Sub


End Namespace

XmlTest.TestMain()
