Class App
    Shared Sub Main()
        Dim streamXMLFile As MemoryStream
        Dim streamXSDSchema As MemoryStream
        Dim XSDSchema As XmlSchema
        Dim readerSettings As XmlReaderSettings = New XmlReaderSettings
 
        streamXMLFile = New MemoryStream(Encoding.Unicode.GetBytes( _
          My.Resources.XMLDoc))
        streamXSDSchema = New MemoryStream(Encoding.Unicode.GetBytes( _
        My.Resources.Schema))
 
        XSDSchema = XmlSchema.Read(streamXSDSchema, New _
          ValidationEventHandler(AddressOf _
          readerSettingsValidationEventHandler))
        readerSettings.Schemas.Add(XSDSchema)
        readerSettings.ValidationType = ValidationType.Schema
        AddHandler readerSettings.ValidationEventHandler, New _
          ValidationEventHandler(AddressOf readerSettingsValidationEventHandler)
 
        Dim reader As XmlReader = XmlReader.Create(streamXMLFile, _
          readerSettings)
 
        Do While reader.Read()
        Loop
 
        Console.ReadLine()
    End Sub
 
    [...]
End Class

- "Computers are like air conditioners. They stop working properly when you open Windows"