VB.NET-成员的事件处理问题

我发现在构造函数中引发的事件(直接间接地)不能在类外处理。为了证明这是否是实际问题,我编写了一个简单的示例应用程序。

Namespace Utils
    Public Class A
        Public Event Test()

        Public Sub New()
            CallTest()
        End Sub

        Public Sub MakeACall()
            CallTest()
        End Sub

        Private Sub CallTest()
            RaiseEvent Test()
        End Sub
    End Class
End Namespace

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        m_A.MakeACall()
    End Sub

    Private Sub HandleTest() Handles m_A.Test
        MsgBox("ta-dah!")
    End Sub

    Protected WithEvents m_A As New Utils.A()
End Class

主要形式(未正确处理事件):

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        m_A = New Utils.A()
    End Sub

    Private Sub HandleTest() Handles m_A.Test
        MsgBox("ta-dah!")
    End Sub

    Protected WithEvents m_A As Utils.A
End Class

写下这些文章后,这种行为的原因变得相当明显,但也许有一种方法可以省略它?