XML VB.Net

Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.Data
Imports System.Windows.Forms
Public Class MainClass
    
    Shared Sub Main()
        Dim xtr As New XmlTextReader("book.xml")
        Dim xvr As New XmlValidatingReader(xtr)
        xvr.ValidationType = ValidationType.Schema
        AddHandler xvr.ValidationEventHandler, _
                   New ValidationEventHandler(AddressOf ValidationErrorHandler)
        While xvr.Read()
            If TypeOf xvr.SchemaType Is XmlSchemaComplexType Then
                Console.WriteLine("{0} - {1}", xvr.NodeType, xvr.Name)
                While xvr.MoveToNextAttribute()
                    Console.WriteLine("  {0} - {1}: {2}", _
                                        xvr.NodeType, xvr.Name, xvr.Value)
                End While
            End If
        End While
    End Sub
    Shared Sub ValidationErrorHandler(ByVal sender As Object, _
                               ByVal args As ValidationEventArgs)
        Console.WriteLine("XML Document Validation Failure")
        Console.WriteLine()
        Console.WriteLine("The ValidatingReader Failed with severity : {0}", _
                                                                args.Severity)
        Console.WriteLine("The failure message was: {0}", args.Message)
    End Sub
End Class
'
'
'   
'      C# How to Program
'   

'   
'      Java How to Program, 4/e
'   

'   
'      Visual Basic .NET How to Program
'   

'   
'      Advanced Java 2 Platform How to Program
'   

'   
'      Python How to Program
'   

'