Serialize VB.NET objects without the events

Imports System.Runtime.Serialization
Imports System.Collections

'******************************************************************************
'*  NAME        :  SerializableCollectionWithEvents 
'*
'*  DESCRIPTION :   Test class to demonstrate the use of SerializableObject
'*                  when inheriting from a different base class
'*                  Of course, when serializing this collection, you have to 
'*                  ensure that objects stored in it are serializable too!
'******************************************************************************
<Serializable()> Public Class SerializableCollectionWithEvents
    Inherits CollectionBase
    Implements ISerializable, IDeserializationCallback

    ' Constructors
    Public Sub New()
        MyBase.New()
    End Sub
    Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)

        ' Instantiate base class
        MyBase.New()

        ' Record the Info object between the constructor and the deserialization callback
        ' because if we set the values of fields that are declared with
        ' an initializer, the initializer will come along and overwrite the value
        ' after this constructor has been called
        ' This is for the same reason as SerializableObject itself
        mInfo = info

    End Sub

#Region "Events"

    Public Event ObjectAdded As EventHandler
    Protected Overridable Sub OnObjectAdded(ByVal e As EventArgs)
        Try
            RaiseEvent ObjectAdded(Me, e)
        Catch
        End Try
    End Sub

    Public Event ObjectRemoved As EventHandler
    Protected Overridable Sub OnObjectRemoved(ByVal e As EventArgs)
        Try
            RaiseEvent ObjectRemoved(Me, e)
        Catch
        End Try
    End Sub

#End Region

#Region "Common Collection Methods"


    ' Simple collection implementation - you get the idea
    Public Sub Add(ByVal Obj As Object)
        MyBase.InnerList.Add(Obj)
        Me.OnObjectAdded(EventArgs.Empty)
    End Sub

    Public Sub Remove(ByVal obj As Object)
        MyBase.InnerList.Remove(obj)
        Me.OnObjectRemoved(EventArgs.Empty)
    End Sub

#End Region

#Region "Serialization Implementation"

    ' Variable to store the serialization info between New() and OnDeserialization()
    <NonSerialized()> Private mInfo As SerializationInfo

    Protected Overridable Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData

        ' Use SerializableObject Shared method to do the serialization and filter out event delegates
        SerializableObject.SerializeObject(Me, info)

    End Sub

    Protected Overridable Sub OnDeserialization(ByVal sender As Object) Implements System.Runtime.Serialization.IDeserializationCallback.OnDeserialization

        ' Use SerializableObject Shared method to do the deserialization
        SerializableObject.DeserializeObject(Me, mInfo)

        ' Kill the info object
        mInfo = Nothing

    End Sub




#End Region


End Class