XML VB.Net

Option Strict On
Option Explicit On
Imports System
Imports System.Xml
Imports System.Xml.Schema
Public Class Sample
    Public Shared Sub Main()
        Dim schema As New XmlSchema()
        Dim complexType_all As New XmlSchemaAll()
        Dim complexType_all_thing1 As New XmlSchemaElement()
        complexType_all_thing1.RefName = New XmlQualifiedName("thing1", "")
        complexType_all.Items.Add(complexType_all_thing1)
    End Sub 'Main
End Class 'Sample