XmlSerializer with list(of type)

Imports System.IO
Imports System.Xml.Serialization
Module Module1

    Sub Main()
        Dim c As New Candidate()
        Dim ema As New AnEmailAddress()
        ema.emailAddress = "test1"
        c.AddEmail(ema)
        ema = New AnEmailAddress()
        ema.emailAddress = "test2"
        c.AddEmail(ema)
        Dim fs As New FileStream("XMLSerializedObject2.xml", FileMode.Create)
        Dim xf As New XmlSerializer(GetType(Candidate))
        ', New Type() {GetType(AnEmailAddress)})
        xf.Serialize(fs, c)
        fs.Flush()
        fs.Close()

    End Sub

End Module


Imports System.Collections.Generic
 _
Public Class Candidate
    Private m_emailList As New List(Of AnEmailAddress)
    Public Property emailList() As List(Of AnEmailAddress)
        Get
            Return m_emailList
        End Get
        Set(ByVal value As List(Of AnEmailAddress))
            m_emailList = value
        End Set
    End Property
    Public Sub AddEmail(ByVal address As AnEmailAddress)
        m_emailList.Add(address)
    End Sub


End Class


 _
Public Class AnEmailAddress
    Private m_emailAddress As String
    Public Property emailAddress() As String
        Get
            Return m_emailAddress
        End Get
        Set(ByVal value As String)
            m_emailAddress = value
        End Set
    End Property

End Class