Events werden nicht behandelt

Question

In diesem kleinen Projekt soll die Klasse download ein Event auslösen, das in der Form frmmain behandelt wird.

Die Msgbox mit der Nachricht "Klasse aufgerufen" erscheint, aber das Event wird in frmmain nicht behandelt. Ich finde keinen Fehler ...

---

main.vb

Public Class frmmain
    Dim obj As download
    Public WithEvents download As New download
    Sub msg(ByVal x As Integer) Handles download.updatedl
        MsgBox(x)
    End Sub
End Class

download.vb

Public Class download
    Public Event updatedl(ByVal x As Integer)
    Sub New()
        MsgBox("Klasse aufgerufen")
        RaiseEvent updatedl(10)
    End Sub
End Class

---