Add 5 new green Fords to the incoming document
Module Program Sub Main() Dim doc As XElement = XElement.Load("Inventory.xml") For i As Integer = 0 To 4 Dim newCar As New XElement("Car", _ New XAttribute("ID", i + 1000), _ New XElement("Color", "Green"), _ New XElement("Make", "Ford"), _ New XElement("PetName", "")) doc.Add(newCar) Next Console.WriteLine(doc) End Sub End Module