Private Sub AcadDocument_LayoutSwitched(ByVal LayoutName As String)
    ' Этот пример перехватывает событие LayoutSwitched.
    '
    ' Это событие вызвано, когда пользователь переключается к другому
    ' видовому листу рисунка.
    '
    ' Чтобы вызвать это событие: Откройте рисунок и измените его видовой
    ' лист
    '
    ' Например: Переключите рисунок от вида Model к виду Layout1

    ' Используйте переменную "LayoutName", чтобы определить, какай лист
    ' активен
    MsgBox "Лист рисунка был изменен на: " & LayoutName
End Sub