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