jyuch.hatenablog.com XMLの検証 Module Module1 Sub Main() Section2() End Sub Function ReadSchema() As XmlSchema Dim xs As XmlSchema Using r = New StreamReader("mailbox.xsd") xs = XmlSchema.Read(r, Sub(sender, e) Console.WriteLine("{0}:{1}",…