Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
    ' Этот пример перехватывает событие ObjectAdded.
    '
    ' Это событие вызвано, когда объект добавляется к рисунку.
    '
    ' Чтобы вызвать это событие: Добавьте объект к открытому рисунку

    ' Используйте переменную "Object", чтобы определить тип объекта, который добавляют
    MsgBox "Объект " & TypeName(Object) & " добавился к рисунку! "
End Sub