SelectedItems Interface

[GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")] 
public interface SelectedItems : IEnumerable

/** @attribute GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240") */ 
public interface SelectedItems extends IEnumerable

GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240") 
public interface SelectedItems extends IEnumerable

Sub SelectedItemsExample()
   Dim SelItems As SelectedItems
   Dim SelItemObj As SelectedItem
   Dim SelContain As SelectionContainer
   Dim SelItem As SelectedItem
   Dim NameStr As String

   SelItems = DTE.SelectedItems
   ' List the number of items selected.
   If SelItems.MultiSelect = True Then
      MsgBox("You have " & SelItems.Count & " items selected in Solution Explorer.")
   End If

   ' Set a reference to the first selected item.
   SelItemObj = SelItems.Item(1)
   ' List the names of the project or project items under the selected 
   ' item.
   For Each SelItem In SelItemObj.Collection
      NameStr = NameStr & SelItem.Name
      If TypeOf SelItem.Project Is Project Then
         NameStr = NameStr & " Project-" & SelItem.Project.Name & vbCrLf
      Else
         If TypeOf SelItem.ProjectItem Is ProjectItem Then
             NameStr = NameStr & SelItem.ProjectItem.FileNames(1) & vbCrLf
         End If
      End If
   Next
   MsgBox("You selected: " & NameStr)
End Sub