Private Sub DisplayMethodExample()
' This example creates a paperspace viewport and makes it active.
Dim newPViewport As IntelliCAD.PViewport
Dim cenPt As Point
Set cenPt = Library.CreatePoint(5, 5, 0)
' Create a paperspace Viewport object
ThisDocument.ActiveSpace = vicPaperSpace
Set newPViewport = ThisDocument.PaperSpace.AddPViewport(cenPt, 50, 60)
newPViewport.Display True
End Sub