.NET AppActivate and AppDeactivate are not responding

I am using following code in dvb file, it works in Autocad But Not in Bricscad, Any suggesion

Option Explicit
Public WithEvents ACADAppEvents As AcadApplication

Sub main()
End Sub

Private Sub MyEvents()
Set ACADAppEvents = GetObject(, "BricscadApp.AcadApplication")
End Sub

Private Sub ACADAppEvents_AppActivate()
MsgBox "BricsCAD is activated!"
End Sub

Private Sub ACADAppEvents_AppDeactivate()
MsgBox "BricsCAD is Deactivated!"
End Sub

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!