OnlyWindowArea property example

Private Sub OnlyWindowArea_Example()

     ' This example returns/sets the OnlyWindowArea property.

     Dim wArea As Long

     Dim newWArea As Long

     wArea = IntelliCAD.PlotManager.OnlyWindowArea

     MsgBox "The OnlyWindowArea property is: " & wArea

     newWArea = InputBox("Type a new value for the OnlyWindowArea:")

     IntelliCAD.PlotManager.OnlyWindowArea = newWArea

     MsgBox "The new OnlyWindowArea property is: " & IntelliCAD.PlotManager.OnlyWindowArea

End Sub