Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
Public Shared Sub Main()
Dim settings As New XmlReaderSettings()
settings.ValidationType = ValidationType.Schema
settings.Schemas.Add("urn:items", "item.xsd")
Dim reader As XmlReader = XmlReader.Create("item.xml", settings)
reader.ReadToFollowing("price")
Console.WriteLine(reader.ValueType)
Dim price As [Decimal] = CType(reader.ReadElementContentAsObject(), [Decimal])
price = [Decimal].Add(price, 2.5D)
End Sub
End Class