<XmlRootAttribute(ElementName:="Boek")> _
Public Class clsBook
    Public Name As String
    Public Description As String
    <XmlElementAttribute(ElementName:="Quantity")> _
    Public Qty As Integer
End Class

        Dim LstBook As New List(Of clsBook)
        Dim b As New clsBook()
        b.Name = "Boek1"
        b.Description = "Boek Description 1"
        b.Qty = 5
        LstBook.Add(b)
        b = New clsBook
        b.Name = "Boek2"
        b.Description = "Product Description 2"
        b.Qty = 105
        LstBook.Add(b)
        'Serialize object to a text file.
        Dim objStreamWriter As New StreamWriter("D:\Test.Xml")
        Dim x As New XmlSerializer(LstBook.GetType)
        x.Serialize(objStreamWriter, LstBook)
        objStreamWriter.Close()

Class TheClass
    Public i As Integer
End Class

Sub WriteXml()
    Dim writeList As New List(Of TheClass)
    For i As Integer = 0 To 4
        Dim tc As New TheClass
        tc.i = i
        writeList.Add(tc)
    Next

    Dim objStreamWriter As New IO.StreamWriter("C:\Test.Xml")
    Dim serializer As New XmlSerializer(GetType(List(Of TheClass)))
    serializer.Serialize(objStreamWriter, writeList)
    objStreamWriter.Close()
End Sub

Sub ReadXml()
    Dim objStreamReader As New IO.StreamReader("c:\test.xml")
    Dim serializer As New XmlSerializer(GetType(List(Of TheClass)))
    Dim readList As List(Of TheClass) = DirectCast(serializer.Deserialize(objStreamReader), List(Of TheClass))
    objStreamReader.Close()
    For Each tc As TheClass In readList
        MsgBox(tc.i)
    Next
End Sub

Option Explicit On
Option Strict On

Imports System.Xml.Serialization

<Serializable(), XmlRoot(ElementName:="Boeken")> _
Public Class clsBooks
    <XmlElement(ElementName:="Boek")> _
    Public list As New List(Of clsBook)
End Class

Public Class clsBook
    Public Name As String
    Public Description As String
    <XmlElement(ElementName:="Quantity")> _
    Public Qty As Integer
End Class


Public Module Module1

    Sub Main()

        Dim books As New clsBooks
        For i As Integer = 1 To 3
            Dim book As New clsBook
            book.Name = "VB.Net part " & i.ToString()
            book.Description = "Learning vb.net"
            book.Qty = (4 - i) * 333
            books.list.Add(book)
        Next

        Dim objStreamWriter As New IO.StreamWriter("c:\Test.Xml")
        Dim x As New XmlSerializer(GetType(clsBooks))
        x.Serialize(objStreamWriter, books)
        objStreamWriter.Close()
    End Sub
End Module