Private Sub AcadDocument_Activate()
    ' Это событие вызвано, когда окно рисунка становится активным.
    '
    ' Чтобы вызвать это событие: Или откройте новый рисунок или переключите 
    ' окно рисунка

    MsgBox "Вы только что активизировали рисунок! "
End Sub