Thought Persistence

Option Explicit

Dim c As CommandButton

Private Sub Form_Load()
Set c = Me.Command1
End Sub

就行了

解决办法在unload中set c = nothing

冬去春来春又去
真是养膘的好季节
可惜依然没有能够增肥

从宁波回来, 昨天起, 开始跑步了又
好久没跑了, 几圈下来就上气不接下气了
回来就觉得渴, 想喝水
本来是照例买苹果的, 可是苹果价格疯涨, 看来通胀确实存在
于是昨天买的是桃, 水份挺多的
今天买杨梅, 发现真好吃

在宁波时, 大街小巷摆的都是杨梅
因为旁边的余姚是盛产杨梅的
经常有人去农家, 交上点钱
然后可以躺在树下吃, 然后再满载而归
可惜当时在宁波没买, 应该比这边便宜不少吧

要用什么来深切怀念那已失去或未得到的东西
只有用对未来可知而不可见的憧憬了

一年快过去一半了, 既然不堪回首, 就不用回首了吧
想想, 自己写的东西, 跟杨梅一样酸

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

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