<Serializable()> Public Class X
    Public Event gespeichert
 
    Public Sub Speichern()
        Dim a As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim b As New IO.FileStream("C:\X.XYZ", IO.FileMode.Create)
 
        a.Serialize(b, Me)
        RaiseEvent gespeichert
    End Sub
End Class
 
Public Class Y
    Private a As New X
 
    Public Sub Speichern()
        a.Speichern
    End Sub
End Class
 
Public Class Z
    Private WithEvents a As New X
 
    Private Sub gespeichert() Handles X.gespeichert
 
    End Sub
End Class