Presentation.NewWindow (PowerPoint)

Opens a new window that contains the specified presentation. Returns a DocumentWindow object that represents the new window.

Set oldW = Application.ActiveWindow
Set newW = oldW.NewWindow
oldW.Activate