Sub Example_UpperRightCorner()
    'Этот пример создает новую область просмотра и делает её активной.
    'Затем он разбивает область просмотра на 4 окна.
    'Затем находит верхний правый угол каждого из окон.
    Dim newViewport As AcadViewport
       
    'Создайте новую область просмотра и сделайте её активной
    Set newViewport = ThisDrawing.Viewports.Add("TESTVIEWPORT")
    ThisDrawing.ActiveViewport = newViewport
    
    'Разбейте область просмотра на 4 окна
    newViewport.Split acViewport4
    
    'Сделайте область просмотра разбиения активной
    ThisDrawing.ActiveViewport = newViewport
    
    'Выполните итерации через области просмотра. Для каждой области 
    'просмотра, сделайте эту область просмотра активной и покажите 
    'координаты верхнего правого угла.
    Dim entry As AcadViewport
    Dim UpperRight As Variant
    For Each entry In ThisDrawing.Viewports
        entry.GridOn = True
        ThisDrawing.ActiveViewport = entry
        UpperRight = entry.UpperRightCorner
        MsgBox "Верхний правый угол этой области просмотра " & UpperRight(0) & ", " & UpperRight(1), , "UpperRightCorner Пример"
        entry.GridOn = False
    Next
End Sub