API Documentation > CorelDRAW > 2025-v26 > Views > IVGViews
Views.AddActiveView method
Adds the active view into the collection
Syntax:
Function AddActiveView(ByVal Name As String) As View
Parameters:
Name Type Description
Name
String
Remarks:
The AddActiveView method adds the current view to a collection.
Examples:
The following VBA example adds five views to the collection and increments the zoom level by 25 for each view.
Sub Test()
Dim intCounter As Integer
For intCounter = 1 To 5
  ActiveDocument.Views.AddActiveView "Test" & intCounter
  ActiveDocument.ActiveWindow.ActiveView.Zoom = (intCounter * 25)
Next intCounter 
End Sub