Module MainModule
Sub Main()
Dim MyReader As New Xml.XmlTextReader("c:\simple.xml")
Dim strOutput As String, intCount As Integer
Do While MyReader.Read
Select Case MyReader.NodeType
Case Xml.XmlNodeType.Element
System.Console.WriteLine(MyReader.Name)
If MyReader.HasAttributes Then
For intCount = 0 To MyReader.AttributeCount - 1
MyReader.MoveToAttribute(intCount)
System.Console.WriteLine(MyReader.Name & "=" & MyReader.Value)
Next
End If
Case Xml.XmlNodeType.Text
System.Console.WriteLine(MyReader.Value)
Case Xml.XmlNodeType.EndElement
System.Console.WriteLine(MyReader.Name)
End Select
Loop
End Sub
End Module