Visual Basic

Option Strict On

<Serializable()> Public Class Test

    Public Sub New()
    End Sub

    Dim m_text As String
    Public Property Text() As String
        Get
            Return m_text
        End Get
        Set(ByVal Value As String)
            m_text = Value
        End Set
    End Property

End Class

<Serializable()> Public Class TestTag

    Public Sub New()
    End Sub

    Dim m_text As String
    Public Property Text() As String
        Get
            Return m_text
        End Get
        Set(ByVal Value As String)
            m_text = Value
        End Set
    End Property

    Dim m_tag As Object
    Public Property Tag() As Object
        Get
            Return m_tag
        End Get
        Set(ByVal Value As Object)
            m_tag = Value
        End Set
    End Property

End Class

Public Class StartUp

    Public Shared Sub Main()

        Dim ser As New Xml.Serialization.XmlSerializer(GetType(TestTag))
        Dim file As New System.IO.StreamWriter("c:\temp\test.xml")
        Dim obj1 As New TestTag
        Dim obj2 As New Test

        obj1.Text = "TestTag Object"
        obj2.Text = "Test Object"
        obj1.Tag = obj2

        ser.Serialize(file, obj1)

        file.Close()

        MsgBox("Object Serialized")

    End Sub

End Class