Class Car
Public PetName As String
Public ID As Integer
End Class
Module Program
Sub Main()
' .
Dim inventoryDoc As XDocument = _
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!--Current Inventory of AutoLot-->
<Inventory>
<Car ID="1">
<Color>Green</Color>
<Make>BMW</Make>
<PetName>Stan</PetName>
</Car>
<Car ID="2">
<Color>Pink</Color>
<Make>Yugo</Make>
<PetName>A</PetName>
</Car>
</Inventory>
Console.WriteLine(inventoryDoc)
inventoryDoc.Save("SimpleInventory.xml")
End Sub
End Module