''autocad 2008
Public Class Class1
Dim db As Autodesk.AutoCAD.DatabaseServices.Database = Autodesk.AutoCAD.DatabaseServices.HostApplicationServices.WorkingDatabase
Sub delent(ByVal sender As Object, ByVal e As Autodesk.AutoCAD.DatabaseServices.ObjectErasedEventArgs)
MsgBox("del")
End Sub
<Autodesk.AutoCAD.Runtime.CommandMethod("d1")> _
Sub aa()
AddHandler db.ObjectErased, AddressOf delent
End Sub
<Autodesk.AutoCAD.Runtime.CommandMethod("d2")> _
Sub bb()
RemoveHandler db.ObjectErased, AddressOf delent
End Sub
End Class