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_AppActivate()

     ' This example receives an Application AppActivate event.

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

     ' To fire this event:

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

     ' 2) Activate an application window.

     MsgBox "Application window is about to be activated."

End Sub