XmlSchemaGroup Class represents group element from XML Schema
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