Sub 引数3 - いぬもあるけばぼうもあるく

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets
    xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Sub パラメーター3つ</Title>
      <Shortcut>subp3</Shortcut>
    </Header>
    <Snippet>

      <Declarations>
        <Literal>
          <ID>acc</ID>
          <Default>Private</Default>
        </Literal>

        <Literal>
          <ID>name</ID>
          <Default>Test</Default>
        </Literal>

        <Literal>
          <ID>p1</ID>
          <Default>p1</Default>
        </Literal>

        <Literal>
          <ID>p1type</ID>
          <Default>Integer</Default>
        </Literal>

        <Literal>
          <ID>p2</ID>
          <Default>p2</Default>
        </Literal>

        <Literal>
          <ID>p2type</ID>
          <Default>String</Default>
        </Literal>

        <Literal>
          <ID>p3</ID>
          <Default>p3</Default>
        </Literal>

        <Literal>
          <ID>p3type</ID>
          <Default>String</Default>
        </Literal>
        
      </Declarations>
      
      <Code Language="VB"><![CDATA[   ''' <summary>
    '''
    ''' </summary>
    ''' <param name="$p1$"></param>
    ''' <param name="$p2$"></param>
    ''' <param name="$p3$"></param>
    ''' <remarks></remarks>
    $acc$ Sub $name$(ByVal $p1$ As $p1type$,ByVal $p2$ As $p2type$,ByVal $p3$ As $p3type$)
    End Sub]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>