Generate XSD from XML with DataSet (VB.NET)

<Test()> _
        Public Sub generateXsd()
        Try

            Dim d As DataSet = New DataSet()
            d.ReadXml("C:\projects\LeadInformation.xml")
            d.WriteXmlSchema("C:\projects\LeadInformation.xsd")
        Catch ex As Exception
        End Try

    End Sub

more...