Option Explicit On
Option Strict On
Imports System
Imports System.Xml
Imports System.Xml.Schema
Class XMLSchemaExamples
Public Shared Sub Main()
Dim schema As New XmlSchema()
Dim xeHtmlText As New XmlSchemaElement()
xeHtmlText.Name = "htmlText"
Dim ct As New XmlSchemaComplexType()
Dim sequence As New XmlSchemaSequence()
Dim any As New XmlSchemaAny()
any.MinOccurs = 1
any.MaxOccursString = "unbounded"
any.Namespace = "http://www.w3.org/1999/xhtml"
any.ProcessContents = XmlSchemaContentProcessing.Lax
sequence.Items.Add(any)
ct.Particle = sequence
xeHtmlText.SchemaType = ct
schema.Items.Add(xeHtmlText)
End Sub 'Main
End Class