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 simpleType As New XmlSchemaSimpleType()
simpleType.Name = "northwestStates"
schema.Items.Add(simpleType)
Dim annNorthwestStates As New XmlSchemaAnnotation()
simpleType.Annotation = annNorthwestStates
End Sub 'Main
End Class 'XMLSchemaExamples