The following example illustrates using the SysVarChanged event with an Application
object. To use the SysVarChanged event with a 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_SysVarChanged(SysVarName,
' This example receives an Application
' This event occurs when a change
is made to the value of a system variable.
' To fire this event:
' 1) Run init() function to initialize
' 2) Change the value of a system
MsgBox "A change was made
to a system variable."