XML VB.Net

Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.Xml.XPath
 
Class ValidateExample
    Shared Sub Main(ByVal args() As String)
        Dim document As XmlDocument = New XmlDocument()
        document.Load("Books.xml")
        Dim navigator As XPathNavigator = document.CreateNavigator()
        document.Schemas.Add("http://www.yourname.com/books", "Books.xsd")
        Dim validation As ValidationEventHandler = New ValidationEventHandler(AddressOf SchemaValidationHandler)
        document.Validate(validation)
    End Sub
    Shared Sub SchemaValidationHandler(ByVal sender As Object, ByVal e As ValidationEventArgs)
        Select Case e.Severity
            Case XmlSeverityType.Error
                Console.WriteLine("Schema Validation Error: {0}", e.Message)
                Exit Sub
            Case XmlSeverityType.Warning
                Console.WriteLine("Schema Validation Warning: {0}", e.Message)
                Exit Sub
        End Select
    End Sub
End Class