Imports System.Xml
Public Class Test
	Public Shared Sub Main(args As String())
		Dim doc As New XmlDocument()
		doc.Load("test.xml")
		Dim firstCD As XmlElement = DirectCast(doc.DocumentElement.FirstChild, XmlElement)
		Dim artist As XmlElement = DirectCast(firstCD.GetElementsByTagName("artist")(0), XmlElement)
		Dim title As XmlElement = DirectCast(firstCD.GetElementsByTagName("title")(0), XmlElement)
		Console.WriteLine("Artist={0}, Title={1}", artist.InnerText, title.InnerText)
	End Sub
End Class

'=======================================================
'Service provided by Telerik (www.telerik.com)
'Conversion powered by NRefactory.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================