Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Collections
Imports System.Data
Public Class MainClass
Shared Sub Main()
Dim nsArray As String() = {""}
Dim MyDS As DataSet = New DataSet()
MyDS.ReadXml("book.xml")
MyDS.WriteXmlSchema("InferredSchema.xds")
End Sub
End Class