The following example illustrates using the BeginSave event with an Application
object. To use the BeginSave 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_BeginSave(FileName)
' This example receives an Application
' This event occurs when a drawing
is requested to be saved.
' To fire this event:
' 1) Run init() function to initialize
' 2) Save a drawing.
MsgBox "A drawing is about
to be saved."