IncrementalSearch::DTE Property

Sub testIS2()
    ' Before running, open a document in Visual Studio.
    ' Set variables for text pane.
    Dim tp As EnvDTE80.TextPane2
    tp = CType(DTE.ActiveDocument.ActiveWindow.Object.ActivePane, _
    TextPane2)
    ' Start an incremental search backward from
    ' the current insertion point in the document.
    tp.IncrementalSearch.StartBackward()
    ' Add the character "a" to the search pattern.
    tp.IncrementalSearch.AppendCharAndSearch(Asc("a"))
    ' Display the parent name for IncrementalSearch object.
    MsgBox("IncrementalSearch parent: " & _
    tp.IncrementalSearch.DTE.FullName)
    MsgBox("Search pattern length: " & _
    tp.IncrementalSearch.Pattern.Length)
    ' Perform incremental search using the pattern ("a").
    tp.IncrementalSearch.SearchWithLastPattern()
    ' After the search, exit incremental search mode.
    MsgBox("DeleteCharAndBackup")
    tp.IncrementalSearch.DeleteCharAndBackup()
    MsgBox("SearchForward")
    tp.IncrementalSearch.SearchForward()
    MsgBox("SearchBackward")
    tp.IncrementalSearch.SearchBackward()
    MsgBox("Exit")
    tp.IncrementalSearch.Exit()
End Sub