>>411

ClassA.cls
Public Event MyEvent()
----------------------
ClassB.cls
Implements ClassA
Public sub Hoge()
RaiseEvent MyEvent
End Sub
----------------------
Form1.frm
Public WithEvents classA1 As ClassA
Private Sub classA1_MyEvent()
Debug.Print "Hoge"
End Sub
Private Sub Form_Load()
Dim classB1 As New ClassB
Set classA1 = classB1
Call classB1.Hoge
End Sub