Thought Persistence

Automation error -2147220991
An event was unable to invoke any of the subscribers

要重现, 很简单
class1:
Option Explicit

Private WithEvents m_Form As Form

Private m_Self As Class1

Public Sub Bind(f As Form)
Set m_Form = f
Set m_Self = Me
End Sub

Private Sub m_Form_Unload(Cancel As Integer)
Set m_Self = Nothing
Set m_Form = Nothing
End Sub

form:
Dim i As Long
Dim c(1000) As Class1

For i = 0 To 255
Set c(i) = New Class1
c(i).Bind Me
Next i

事件订阅居然还有上限, 真是受不了