Private Sub AcadDocument_WindowChanged(ByVal WindowState As Long)
    ' Этот пример перехватывает событие WindowChanged.
    '
    ' Это событие вызвано, когда состояние окна текущего рисунка изменено.
    '
    ' Чтобы вызвать это событие: Измените состояние окна рисунка
    '
    ' Например: Сверните или разверните окно рисунка

    Dim CurrentState As String

    ' Используйте переменную "WindowState", чтобы определить новое состояние окна рисунка
    Select Case WindowState
        Case acMin: CurrentState = "свернуто"
        Case acMax: CurrentState = "развернуто"
        Case acNorm: CurrentState = "нормального размера"
    End Select

    MsgBox "Окно рисунка - теперь: " & CurrentState
End Sub