Event wird nicht geraised

[!lkay]

Hallo.

Und zwar geht es um Folgendes:

Module Module1
    Private Sub Test_Changedd(Sender As BaseClass) Handles Test.Changedd
        Throw New Exception("yeah, hat geklappt")
    End Sub

    Private WithEvents Test As A
    Class A : Inherits BaseClass
        Public Event Changedd As EventHandlerEx(Of BaseClass)

        Public Delegate Sub EventHandlerEx(Of T0)(Sender As T0)

        Protected Sub OnTest(se As BaseClass)
            RaiseEvent Changedd(se)
        End Sub

        Private bbool As Boolean = False
        Public Property Lol As Boolean
            Get
                Return bbool
            End Get
            Set(value As Boolean)
                If value = bbool Then Exit Property
                bbool = value
            End Set
        End Property
    End Class
    Public Class BaseClass

    End Class
    Private Sub Doit()
        Test = New A()
        Test.Lol = True
    End Sub
    Sub Main()
        Doit()
        Console.ReadKey()
    End Sub
End Module

Das Event Changedd wird einfach nicht ausgelöst / kann nicht empfangen werden.
Weiß jemand, woran das liegt?

[Deltaflyer]

Du musst auch dein Event irgendwo im Code auslösen! Automatisch werden selbstgeschriebene Events nicht ausgelöst! ;-) Du könntest zum Beispiel im Code nachdem "bbool = value" gesetzt wird, "OnTest(Me)" aufrufen. Dann erst wird das Event ausgelöst.
Wie gesagt, du musst festlegen wo im Code "OnTest" aufgerufen wird, damit das Event ausgelöst wird. Wenn du es nirgends aufrufst, passiert auch logischerweise nichts. ;-)