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