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