プロシージャを実行するためには、まずクラス モジュール内の宣言したオブジェクトを Document オブジェクトに接続する必要があります。
Dim X As New EventClassModule
Sub InitializeEvents() Set X.Doc = ThisDrawing End Sub
Call InitializeEvents
InitializeEvents プロシージャが実行されると、クラス モジュール内の Doc オブジェクトによって作成された Document オブジェクトが指し示され、イベントが発生したときにクラス モジュール内のイベント プロシージャが実行されます。