Public Class MiaClasse
    Implements IFiltrable(Of MioFiltro)

    Delegate Sub ShowFilterHandler(ByVal sender As MioFiltro, ByVal e As System.ComponentModel.CancelEventArgs)
    Public Event ShowFilter As ShowFilterHandler Implements Collection.IFiltrable(Of MioFiltro).ShowFilter
    Private Property Filter(ByVal show As Boolean) As MioFiltro Implements IFiltrable(Of MioFiltro).Filter
        Get
            If show Then
                Dim _cancelArgs As New CancelEventArgs
                RaiseEvent ShowFilter(_filter, _cancelArgs)
            End If
            Return _filter
        End Get
        Set(ByVal value As MioFiltro)
            _filter = value
        End Set
    End Property
End Class