Private Sub AcadDocument_WindowMovedOrResized(ByVal HWNDFrame As Long, ByVal bMoved As Boolean)
    ' Этот пример перехватывает событие WindowMovedOrResized.
    '
    ' Это событие вызвано, когда окно рисунка перемещено или изменено
    '
    ' Чтобы вызвать это событие: Переместите или измените размеры окна рисунка

    Dim CurrentState As String

    ' Используйте переменную "bmoved", чтобы определить, перемещали или изменили размеры окна рисунка
    CurrentState = IIf(bMoved, "Moving", "Sizing")

    MsgBox "Окна рисунка было изменено: " & CurrentState
End Sub