Imports System Imports System.Xml Imports System.Xml.Schema
Class XMLSchemaExamples Public Shared Sub Main() Dim schema As New XmlSchema()
Dim elementRedDog As New XmlSchemaElement()
schema.Items.Add(elementRedDog)
elementRedDog.Name = "a"
elementRedDog.SubstitutionGroup = New XmlQualifiedName("dog")