リストの出力関数 - いぬもあるけばぼうもあるく

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets
    xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Print List</Title>
      <Description>リストを出力します</Description>
      <Shortcut>prtlst</Shortcut>
    </Header>
    <Snippet>

      <Declarations>

        <Literal>
          <ID>type1</ID>
          <Default>Integer</Default>
        </Literal>
        
      </Declarations>

      <Code Language="VB" Kind="method decl ">
        <![CDATA[    ''' <summary>
    ''' リストを出力します
    ''' </summary>
    ''' <param name="list"></param>
    ''' <remarks></remarks>
    Private Sub PrintList(ByVal list As IEnumerable(Of $type1$))
        If list Is Nothing Then Throw New ArgumentNullException("list")

        For Each item As $type1$ In list
            Console.WriteLine(item.ToString)
        Next
    End Sub]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>