Option Strict On
Option Explicit On
Imports System
Imports System.Xml
Imports System.Xml.Schema
Class XMLSchemaExamples
Public Shared Sub Main()
Dim schema As New XmlSchema()
Dim SizeType As New XmlSchemaSimpleType()
SizeType.Name = "SizeType"
Dim restriction As New XmlSchemaSimpleTypeRestriction()
restriction.BaseTypeName = New XmlQualifiedName("string", "http://www.w3.org/2001/XMLSchema")
Dim enumerationSmall As New XmlSchemaEnumerationFacet()
enumerationSmall.Value = "Small"
restriction.Facets.Add(enumerationSmall)
End Sub
End Class