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 myGroupOfThings As New XmlSchemaGroup()
schema.Items.Add(myGroupOfThings)
myGroupOfThings.Name = "myGroupOfThings"
Dim sequence As New XmlSchemaSequence()
myGroupOfThings.Particle = sequence
Dim elementThing1Ref As New XmlSchemaElement()
sequence.Items.Add(elementThing1Ref)
elementThing1Ref.RefName = New XmlQualifiedName("thing1")
Dim myComplexType As New XmlSchemaComplexType()
schema.Items.Add(myComplexType)
myComplexType.Name = "myComplexType"
Dim myGroupOfThingsRef As New XmlSchemaGroupRef()
myComplexType.Particle = myGroupOfThingsRef
myGroupOfThingsRef.RefName = New XmlQualifiedName("myGroupOfThings")
Dim myAttributeRef As New XmlSchemaAttribute()
myComplexType.Attributes.Add(myAttributeRef)
myAttributeRef.RefName = New XmlQualifiedName("myAttribute")
End Sub
End Class