' From the BusinessBindingSource.vb in the Business Namespace



#Region " Protected Methods "



Protected Overrides Sub Dispose(ByVal disposing As Boolean)

'-- Dispose of the internal list of business objects when done and clear

' the references to the pieces

If disposing Then

If Me._BusinessObjectList IsNot Nothing Then

For Each bo As BusinessLayer In Me._BusinessObjectList.Values

bo.Dispose()

Next

Me._BusinessObjectList.Clear()

End If



'-- Remove the reference to the business object

If Me._BusinessObject IsNot Nothing Then

[color=#FF0000]Me.RemoveBOHandlers()[/color]

Me._BusinessObject = Nothing

Me._BusinessObject_CurrentView = Nothing

End If

End If



'-- Base call

MyBase.Dispose(disposing)

End Sub



#End Region