XmlSchemaEnumerationFacet Class represents enumeration facet from XML Schema
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