AddPViewport method example

Sub AddPViewport_Example()
' This example creates a new paper space viewport
    Dim myPViewport As AcadPViewport
    Dim cenPt(0 To 2) As Double
    cenPt(0) = 20: cenPt(1) = 20: cenPt(2) = 0
    ThisDrawing.ActiveSpace = acPaperSpace
    Set myPViewport = ThisDrawing.PaperSpace.AddPViewport(cenPt, 30, 40)
    ThisDrawing.Regen acAllViewports
End Sub