Sub Example_WindowState()
    ' Этот пример читает и отображает текущее состояние окна приложения AutoCAD.

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

    ' Состояние окна на экране дисплея
    MsgBox "AutoCAD - сейчас: " & CurrentState
End Sub