XmlSchemaElement MinOccurs MaxOccursString
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 phoneNumber As New XmlSchemaComplexType() phoneNumber.Name = "phoneNumber" Dim phoneNumberSequence As New XmlSchemaSequence() Dim areaCode1 As New XmlSchemaElement() areaCode1.MinOccurs = 0 areaCode1.MaxOccursString = "1" areaCode1.Name = "areaCode" phoneNumberSequence.Items.Add(areaCode1) End Sub End Class