<?xml version="1.0" encoding="utf-8" ?>
<Company>
	<CompanyName>My Company</CompanyName>
	<RegDate> 1997 - 07 - 02 </RegDate>
	<Employee EmpNum="123" JobTitle="Director">
		<name>Nik</name>
		<Tel> 22 - 777 - 123 </Tel>
		<Salary> 1742582 . 00 </Salary>
	</Employee>
</Company>

<?xml version="1.0" encoding="utf-8" ?>
<xs:schema elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">
	<xs:element name="Company" type="CompanyType"></xs:element>
	<xs:complexType name="CompanyType">
		<xs:sequence>
			<xs:element name="CompanyName" type="xs:string" />
			<xs:element name="RegDate" type="xs:date" />
			<xs:element name="Employee" type="EmployeeType" minOccurs="0" maxOccurs="unbounded" />
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="EmployeeType">
		<xs:sequence>
			<xs:element name="Name" type="xs:string" />
			<xs:element name="Tel" type="xs:string" />
			<xs:choice>
				<xs:element name="Salary" type="xs:double" />
				<xs:element name="DailyRate" type="xs:double" />
			</xs:choice>
			<xs:element name="EmpNum" type="xs:string" />
			<xs:element name="JobTitle" type="JobTitleType" />
		</xs:sequence>
	</xs:complexType>
	<xs:simpleType name="JobTitleType">
		<xs:restriction base="xs:string">
			<xs:enumeration value="Director" />
			<xs:enumeration value="Manager" />
			<xs:enumeration value="Programmer" />
		</xs:restriction>
	</xs:simpleType>
</xs:schema>

Shared Sub MyHandles(ByVal sender As Object, ByVal e As ValidationEventArgs) ' Handles xsd.ValidationEventHandler
        MsgBox(e.Message)
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim doc As XmlTextReader = New XmlTextReader("Company.xml")
        Dim xsd As XmlValidatingReader = New XmlValidatingReader(doc)
        xsd.Schemas.Add("", "Company.xsd")
        xsd.ValidationType = ValidationType.Schema
        AddHandler xsd.ValidationEventHandler, AddressOf MyHandles
End Sub