The following example illustrates using the EndSave event with an Application
object. To use the EndSave event with a Document or Workspace object, you do
not need to initialize the App variable.
Public WithEvents App As Application
'To receive and handle events from
progeCAD, first initialize the App variable.
Set App = ThisWorkspace.Application
Private Sub App_EndSave(FileName)
' This example receives an Application
' This event occurs when progeCAD
completes saving a drawing.
' To fire this event:
' 1) Run init() function to initialize
' 2) Save a drawing to completion.
MsgBox "A drawing has finished