Public WithEvents App As Application

Sub init()

     'To receive and handle events from IntelliCAD, first initialize the App variable.

      Set App = ThisWorkspace.Application

End Sub

'Event handler

     Private Sub App_AppDeactivate()

     ' This example receives an Application AppDeactivate event.

     ' This event occurs immediately before an application window or workspace is deactivated.

     ' To fire this event:

     ' 1) Run init() function to initialize App variable.

     ' 2) Deactivate an application window.

     MsgBox "Application window is about to be deactivated."

End Sub