CenterOnPage property example

Private Sub CenterOnPage_Example()

' This example returns the CenterOnPage property and changes it to 2.

     Dim currentCntr As Long

     Dim newCntr As Long

     currentCntr = IntelliCAD.PlotManager.CenterOnPage

     MsgBox "The CenterOnPage property is: " & currentCntr

     IntelliCAD.PlotManager.CenterOnPage = 2

     newCntr = IntelliCAD.PlotManager.CenterOnPage

     MsgBox "The CenterOnPage property is: " & newCntr

End Sub