Private Sub CommandButton10_Click()
Dim myViewport As IntelliCAD.PViewport
Dim cenPt As IntelliCAD.Point
Set cenPt = Library.CreatePoint(4, 4, 0)
ThisDocument.ActiveSpace = vicPaperSpace
Set myViewport = ThisDocument.PaperSpace.AddPViewport(cenPt, 33, 44)
ThisDocument.Regen vicAllViewports
End Sub