CodeDomの逆シリアル化

Dim temp as New SampleClass1
MyControl1.MyProperty = temp

MyControl1.MyProperty = New SampleClass1("aaaa", 1, "bbb", False)

'必要コード以外は省略
Private Sub InitializeComponent()
        Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("")
        Me.ListView1 = New System.Windows.Forms.ListView
        '
        'ListView1
        '
        Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})
End Sub

        Dim baseSerializer As CodeDomSerializer = CType(manager.GetSerializer(GetType(UserControl1).BaseType, GetType(CodeDomSerializer)), CodeDomSerializer)
        Dim codeObject As Object = baseSerializer.Serialize(manager, value)
        If TypeOf codeObject Is CodeStatementCollection Then

            Dim statements As CodeStatementCollection = CType(codeObject, CodeStatementCollection)

            Dim targetObject As CodeExpression = MyBase.SerializeToReferenceExpression(manager, value)

            If Not (targetObject Is Nothing) Then

                'コード生成：Dim temp As String = New String(New Char(0) {})    ←　本当は""を代入したかったがよくわからなかった。
                Dim variableDeclaration As New CodeVariableDeclarationStatement(GetType(String), "temp", New CodeObjectCreateExpression(GetType(String), New CodeArrayCreateExpression("System.Char", 1)))
                statements.Add(variableDeclaration)

                'コード生成：Me.UserControl11.Text = temp　←　UserControl型なのでTextプロパティを持つ
                Dim fieldRef1 As New CodeFieldReferenceExpression(targetObject, "Text")
                Dim fieldRef2 As New CodeVariableReferenceExpression("temp")
                Dim as1 As New CodeAssignStatement(fieldRef1, fieldRef2)
                statements.Add(as1)

            End If

        End If

        Return codeObject

Dim variableDeclaration As New CodeVariableDeclarationStatement(GetType(String), "temp", New CodePrimitiveExpression(""))

    Private _items As System.Windows.Forms.ListView.ListViewItemCollection

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public Property Items() As System.Windows.Forms.ListView.ListViewItemCollection
        Get
            If _items Is Nothing Then
                _items = New System.Windows.Forms.ListView.ListViewItemCollection((Me.ListView1))
            End If
            Return _items
        End Get
        Set(ByVal Value As System.Windows.Forms.ListView.ListViewItemCollection)
            _items = Value
        End Set
    End Property

    Private _testProp As New MyProperty
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public Property TestProp() As MyProperty
        Get
            Return _testProp
        End Get
        Set(ByVal Value As MyProperty)
            _testProp = Value
        End Set
    End Property

    Public Class MyProperty
        Inherits ListViewItem
    End Class

    Private Sub InitializeComponent()
        Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("")
        Me.UserControl21 = New WindowsApplication1.UserControl2
        Me.SuspendLayout()
        '
        'UserControl21
        '
        Me.UserControl21.Location = New System.Drawing.Point(104, 44)
        Me.UserControl21.Name = "UserControl21"
        Me.UserControl21.TabIndex = 0
        ListViewItem1.Tag = "ABC"
        '
        'Form1
        '
        〜省略〜
    End Sub

    <TypeConverter(GetType(ExpandableObjectConverter))> _
    Public Class MyProperty

        〜省略〜
        '
        'UserControl21
        '
        Me.UserControl21.Location = New System.Drawing.Point(152, 88)
        Me.UserControl21.Name = "UserControl21"
        Me.UserControl21.TabIndex = 0
        Me.UserControl21.TestProp.Tag = "abc"
        〜省略〜