Сохранение настроек динамически добавленных контролов

Private Sub serButton(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'создаем кнопку
    Dim btn01 As New myBtn
    btn01.Width = 80
    btn01.Height = 40
    btn01.Text = "My Button"
    btn01.Location = New Point(800, 280)
    
    'сериализуем
    Dim stream As Stream = File.Open("serBtn.dat", FileMode.Create)
    Dim formatter As New BinaryFormatter()
    Try
        formatter.Serialize(stream, btn01)
        MsgBox("theEnd")
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        stream.Close()
        btn01 = Nothing
        formatter = Nothing
    End Try
End Sub
 
 
 
 
Private Sub deserButton(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    'Грузим из файла в память
    Dim stream As Stream = File.Open("serBtn.dat", FileMode.Open)
    Dim formatter As New BinaryFormatter()
    
    'Десериализуем и вставляем на форму
    Dim btn02 As New myBtn
    Try
        btn02 = CType(formatter.Deserialize(stream), myBtn)
        Me.Controls.Add(btn02)
    Catch ex As Exception
        MsgBox(ex.ToString)
    Finally
        stream.Close()
        btn02 = Nothing
        formatter = Nothing
    End Try
End Sub
 
 
 
 
 
 
'…
Imports System.Runtime.Serialization
Imports System.Security.Permissions
<Serializable()> _
Public Class myBtn
    Inherits Button
    Implements ISerializable
    Public Sub New()
    End Sub
    Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
        Dim pp As New Point
        Me.Width = info.GetString("Width")
        Me.Height = info.GetString("Height")
        pp.X = info.GetString("Left")
        pp.Y = info.GetString("Top")
        Me.Text = info.GetString("Text")
        Me.Location = pp
    End Sub
    <SecurityPermissionAttribute(SecurityAction.Demand, SerializationFormatter:=True)> _
    Public Overridable Sub GetObjectData(ByVal info As SerializationInfo, ByVal context As StreamingContext) Implements ISerializable.GetObjectData
        If info Is Nothing Then
            Throw New System.ArgumentNullException("GetObjectData: info")
        End If
        info.AddValue("Width", Me.Width)
        info.AddValue("Height", Me.Height)
        info.AddValue("Left", Me.Location.X)
        info.AddValue("Top", Me.Location.Y)
        info.AddValue("Text", Me.Text)
    End Sub
End Class

Module ControlExtension
    <Runtime.CompilerServices.Extension()>
    Function GetAllChildren(ByRef container As Control) As List(Of Control)
        Dim children As New List(Of Control)
 
        If container.HasChildren = False Then
            Return Nothing
        Else
            Dim objControl As Control
            For Each objControl In container.Controls
                children.Add(objControl)
 
                If objControl.HasChildren Then
                    children.AddRange(objControl.GetAllChildren())
                End If
            Next
        End If
 
        Return children
 
    End Function
End Module

    Private Sub ButtonSaveSettings_Click(sender As Object, e As EventArgs) Handles ButtonSaveSettings.Click
        Try
 
            'PluginContainer - это TabPage на основной форме. 
            'В TabPage(из dll) динамически подгружается TabControl (.Name = Plugin) с любым кол-вом вкладок и контролов. 
            Dim plugin = PluginContainer.Controls.Find("Plugin", True).FirstOrDefault()
            Dim pluginControls As List(Of Control) = plugin.GetAllChildren()
 
            For Each pControl As Control In pluginControls
 
            Next
 
        Catch ex As Exception
            Log(ex.Message)
        End Try
    End Sub

Dim btn02 As New myBtn
btn02 = CType(formatter.Deserialize(stream), myBtn)

For Each c As Control In Me.Controls
            Dim t = c.GetType
            MsgBox(c.GetType.Name)
            For Each mi In t.GetMembers()
                If mi.MemberType = MemberTypes.Property Then
                    For Each prop In CType(mi, PropertyInfo).GetAccessors()
                        MsgBox(prop.Name & vbCrLf & prop.ReturnType.Name)
                    Next
                End If
            Next
        Next

Private Sub GetPropName(ByVal ctrl As Control)
        For Each prop In ctrl.GetType.GetProperties
            ListBox1.Items.Add(prop.Name)
        Next
    End Sub