Option Explicit On
Option Strict On
Imports System
Imports System.Xml
Imports System.Xml.Schema
Public Class XMLSchemaExamples1
Public Shared Sub Main()
Dim schema As New XmlSchema()
Dim complexType As New XmlSchemaComplexType()
Dim elementPets As New XmlSchemaElement()
elementPets.SchemaType = complexType
Dim choice As New XmlSchemaChoice()
complexType.Particle = choice
choice.MinOccurs = 0
choice.MaxOccursString = "unbounded"
End Sub
End Class
