Open TFS Output Window in Visual Studio

Problem
Can't see TFS output window in Visual Studio.

Solution
Run macro to open window.

  
Public Sub OpenTFSOutputWindowPane()
    Dim window As Window = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput)
    Dim outputWindow As OutputWindow = CType(window.Object, OutputWindow)
    Dim tfsOutputWindowPane As OutputWindowPane = outputWindow.OutputWindowPanes.Item("Source Control - Team Foundation")
    tfsOutputWindowPane.Activate()
    window.Visible = True
End Sub