Imports EnvDTE
Imports System.Diagnostics
 
Public Module Module1
 
    Public Sub clrdebug()
        Dim target As OutputWindowPane
        target = GetOutputWindowPane("Debug")
        target.clear()
    End Sub
 
    Function GetOutputWindowPane(ByVal Name As String, Optional ByVal show As _
      Boolean = True) As OutputWindowPane
        Dim win As Window = DTE.Windows.Item( _
        EnvDTE.Constants.vsWindowKindOutput)
        If show Then win.Visible = True
        Dim ow As OutputWindow = win.Object
        Dim owpane As OutputWindowPane
        Try
            owpane = ow.OutputWindowPanes.Item(Name)
        Catch e As System.Exception
            owpane = ow.OutputWindowPanes.Add(Name)
        End Try
        owpane.Activate()
        Return owpane
    End Function
 
End Module