Public Module RecordingModule
 
    Sub TemporaryMacro()
 
        If DTE.Windows.Item(Constants.vsWindowKindTaskList).Visible AndAlso _
            DTE.Windows.Item(Constants.vsWindowKindTaskList).Collection.Count _
            > 0 _
            Then
            DTE.Windows.Item(Constants.vsWindowKindTaskList).Activate()
            DTE.ExecuteCommand("Edit.SelectAll")
            DTE.ExecuteCommand("Edit.Copy")
            DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer).Activate()
            DTE.ActiveWindow.Object.GetItem( _
              "WindowsApplication2\WindowsApplication2\jobs.txt").Select( _
              vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ActiveWindow.Object.DoDefaultAction()
            DTE.Windows.Item("jobs.txt").Activate()
            DTE.ActiveDocument.Selection.Paste()
            DTE.ActiveDocument.Save()
        Else
            System.Windows.Forms.MessageBox.Show("sorry. no jobs found or list" & _
              "is not visible!")
        End If
 
    End Sub
End Module