Before the procedures will run, however, you must connect the declared object in the class module with the Document object.
Dim X As New EventClassModule
Sub InitializeEvents() Set X.Doc = ThisDrawing End Sub
Call InitializeEvents
Once the InitializeEvents procedure has been run, the Doc object in the class module points to the Document object created, and any event procedures in the class module will run when the events occur.