>>351
配列とは別にWithevents宣言してイベントを受け取る。

'ｻﾝﾌﾟﾙﾌﾟﾙ
Private Withevents A1 As Hoge
Private Withevents A2 As Hoge
Private Withevents A3 As Hoge
Private A(1 to 3) As Hoge
'-----
Set A(1) = new Hoge
Set A1 = A(1)


必要になったオブジェクトからだけイベントを受け取る

'ｻﾝﾌﾟﾙﾂｰ
Private Withevents Ax As Hoge
Private A(1 to 3) As Hoge
'-----
'A(1)からイベントを受け取る必要がある
Set Ax = A(1)