Document::NewWindow Method ()

Sub NewWindowExample()
    ' Before running, create a text file or other document window.
    Dim docs As Documents
    Dim doc As Document
    Dim win As Window
    docs = documents
    docs.SaveAll()
    doc = dte.ActiveDocument
    win = doc.NewWindow()
    doc.Save("c:\temp\docsave.txt")
    msgbox(doc.Selection().text)
    docs.CloseAll(vsSaveChanges.vsSaveChangesPrompt)
End Sub