XML VB.Net

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