Public Class Form1

    Public Class FewReferences
        Dim x(2) As List(Of String)
        Public Sub New()
            For a = 0 To x.Length - 1
                x(a) = New List(Of String)
            Next
        End Sub
    End Class

    Public Class ManyReferences
        Dim x(9999) As List(Of String)
        Public Sub New()
            For a = 0 To x.Length - 1
                x(a) = New List(Of String)
            Next
        End Sub
    End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Input As New FewReferences()
        Dim Config As New Ceras.SerializerConfig()
        Config.DefaultTargets = Ceras.TargetMember.AllFields
        Dim Serializer As New Ceras.CerasSerializer(Config)
        Dim Output As FewReferences =
            Serializer.Deserialize(Of FewReferences)(
            Serializer.Serialize(Input))
        Dim Stopwatch As New Stopwatch()
        Stopwatch.Start()
        For a = 0 To 1000000
            Output = Serializer.Deserialize(Of FewReferences)(
                Serializer.Serialize(Input))
        Next
        Stopwatch.Stop()
        MsgBox(Stopwatch.ElapsedMilliseconds) '4763ms, 4793ms
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Input As New ManyReferences()
        Dim Config As New Ceras.SerializerConfig()
        Config.DefaultTargets = Ceras.TargetMember.AllFields
        Dim Serializer As New Ceras.CerasSerializer(Config)
        Dim Output As ManyReferences =
            Serializer.Deserialize(Of ManyReferences)(
            Serializer.Serialize(Input))
        Dim Stopwatch As New Stopwatch()
        Stopwatch.Start()
        For a = 0 To 1000
            Output = Serializer.Deserialize(Of ManyReferences)(
                Serializer.Serialize(Input))
        Next
        Stopwatch.Stop()
        MsgBox(Stopwatch.ElapsedMilliseconds) '5812ms, 6785ms
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Input As New ManyReferences()
        Dim Input2 As New FewReferences()
        Dim Config As New Ceras.SerializerConfig()
        Config.DefaultTargets = Ceras.TargetMember.AllFields
        Dim Serializer As New Ceras.CerasSerializer(Config)
        Dim Output As ManyReferences =
            Serializer.Deserialize(Of ManyReferences)(
            Serializer.Serialize(Input))
        Dim Output2 As FewReferences =
            Serializer.Deserialize(Of FewReferences)(
            Serializer.Serialize(Input))
        Dim Stopwatch As New Stopwatch()
        Stopwatch.Start()
        For a = 0 To 1000000
            Output2 = Serializer.Deserialize(Of FewReferences)(
                Serializer.Serialize(Input2))
        Next
        Stopwatch.Stop()
        MsgBox(Stopwatch.ElapsedMilliseconds) '13952ms, 4778ms
    End Sub

End Class