This is the code I have created till now:
It gets loaded, give no error on the try, but still gives no response. what can be the error. The promptMessage is a routine that writes to the commandline of autocad.
#Region " Event Handlers "
Friend Function Set_Handlers() As Boolean
Dim db As Database = HostApplicationServices.WorkingDatabase
Try
AddHandler db.DwgFileOpened, New DatabaseIOEventHandler(AddressOf objDwgFileOpened)
PromptMessage("DwgFileOpened Handler added")
Return True
Catch ex As Exception
Message(ex.ToString)
Return False
End Try
End Function
Sub objDwgFileOpened(ByVal sender As Object, ByVal e As DatabaseIOEventArgs)
PromptMessage("Drawing opened !")
End Sub
#End Region