Sub Example_WindowTop()
    ' Этот пример находит WindowTop (Y координата) окна AutoCAD.
    ' Затем увеличивает на её 100.
    ' Потом возвращает окно к первоначальному значению.
    
    ' Найдите текущее значение WindowTop свойства
    Dim currWindowTop As Integer
    currWindowTop = ThisDrawing.Application.WindowTop
    MsgBox "Текущее значение WindowTop - " & ThisDrawing.Application.WindowTop, , "WindowTop Пример"
    
    ' Измените значение WindowTop
    ThisDrawing.Application.WindowTop = currWindowTop + 100
    MsgBox "Новое значение WindowTop - " & ThisDrawing.Application.WindowTop, , "WindowTop Пример"
    
    ' Сбросьте значение WindowTop
    ThisDrawing.Application.WindowTop = currWindowTop
    MsgBox "Значение WindowTop было сброшено к " & ThisDrawing.Application.WindowTop, , "WindowTop Пример"
    
End Sub