System Xml Serialization VB.Net by API

Imports System.Xml
Imports System.Xml.Schema
Public Class MainClass
   Shared Dim valid As Boolean ' validation result
   Shared Sub Main()
       Dim schemas As XmlSchemaCollection ' Schemas
      valid = True ' assume document is valid
      schemas = New XmlSchemaCollection()
      schemas.Add("book", "book.xdr")
      Dim reader As XmlTextReader = New XmlTextReader("document.xml")
      Dim validator As XmlValidatingReader = New XmlValidatingReader(reader)
      validator.Schemas.Add(schemas)
      validator.ValidationType = ValidationType.XDR
      AddHandler validator.ValidationEventHandler, AddressOf ValidationError
      While validator.Read
      End While
      If valid Then
         Console.WriteLine("Document is valid")
      End If
      valid = True ' reset variable
      validator.Close()
   End Sub 
   Shared Private Sub ValidationError(ByVal sender As Object, ByVal arguments As ValidationEventArgs)
      Console.WriteLine(arguments.Message)
      valid = False
   End Sub
End Class