Сохранение коллекции экземпляров класса - Visual Basic .NET

Формулировка задачи:

Ситуация получилась следующая: создал я большой класс CoupleGear, в который входит много других экземпляров классов. Когда стала необходимость сохранять коллекцию экземпляров моего класса назначил всем своим классам входящих в CoupleGear <System.Serializable()> и создал следующий класс:

Public Class CoupleGearList
    Private _List As New ArrayList
    Public ReadOnly Property List As ArrayList
        Get
            Return _List
        End Get
    End Property
 
    Public Sub New()
        LoadCG()
    End Sub
 
    Public Sub Add(ByVal e As CoupleGear)
        List.Add(e)
        SaveCG()
    End Sub
 
    Private Sub SaveCG()
        Try
            Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
            Using stream As IO.Stream = IO.File.Create(IO.Directory.GetCurrentDirectory & "\CGList.bin")
                formatter.Serialize(stream, _List) 'Пишем в файл
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub LoadCG()
        Try
            If Not IO.File.Exists(IO.Directory.GetCurrentDirectory & "\CGList.Bin") Then Exit Sub
            Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
            Using stream As IO.Stream = IO.File.Open(IO.Directory.GetCurrentDirectory & "\CGList.bin", IO.FileMode.Open)
                _List = formatter.Deserialize(stream) 'Читаем из файла
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Но при сохранении коллекции, возникла ошибка что класс 1-ной формы не сериализован. Сериализовал, но теперь получилось то что на рисунке. Чего и следовало ждать, т. к. класс моей формы наследуется от System.Windows.Forms.Form Я не понимаю почему мой класс требует сериализации класса формы, ведь ссылок на форму в моем классе нет. Может кто сталкивался с такой проблемой?

Решение задачи: «Сохранение коллекции экземпляров класса»

textual
                            Листинг программы 
                        

                            <Serializable> _
Class CoupleGear
 
    <NonSerialized> _
    Private doneHandler As DoneEventHandler
    
    Public Custom Event Done As DoneEventHandler
    
        <MethodImpl(MethodImplOptions.Synchronized)> _
        AddHandler(ByVal value As DoneEventHandler)
            doneHandler = DirectCast([Delegate].Combine(doneHandler, value), DoneEventHandler)
        End AddHandler
    
        <MethodImpl(MethodImplOptions.Synchronized)> _
        RemoveHandler(ByVal value As DoneEventHandler)
            doneHandler = DirectCast([Delegate].Remove(doneHandler, value), DoneEventHandler)
        End RemoveHandler
    
        RaiseEvent(ByVal e As CoupleGear)
            Dim handler = doneHandler
            If handler IsNot Nothing Then handler(e)
        End RaiseEvent
    End Event
 
End Class
                        