.NET AppActivate and AppDeactivate are not responding

MuhammadSuhail
MuhammadSuhail
in Programming and customization

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