XmlSchemaAny Class represents the World Wide Web Consortium (W3C) any element.
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