<?xml version="1.0" encoding="utf-8" ?>
<CodeSnippets
    xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>New Property</Title>
      <Shortcut>NewProperty</Shortcut>
    </Header>
    <Snippet>
      <Imports>
        <Import>
          <Namespace>System.ComponentModel</Namespace>
        </Import>
        <Import>
          <Namespace>System.Windows.Forms</Namespace>
        </Import>
      </Imports>
      <References>
        <Reference>
          <Assembly>System.Windows.Forms.dll</Assembly>
        </Reference>
      </References>
      <Declarations>
        <Literal>
          <ID>name</ID>
          <ToolTip>The property's name.</ToolTip>
          <Default>FirstName</Default>
        </Literal>
        <Literal>
          <ID>data_type</ID>
          <ToolTip>The property's data type.</ToolTip>
          <Default>String</Default>
        </Literal>
        <Literal>
          <ID>descr</ID>
          <ToolTip>The property's description.</ToolTip>
          <Default>Enter description here.</Default>
        </Literal>
        <Literal>
          <ID>category</ID>
          <ToolTip>The browser category that should hold the property.</ToolTip>
          <Default>Misc</Default>
        </Literal>
        <Literal>
          <ID>default</ID>
          <ToolTip>The property's default value.</ToolTip>
          <Default>Enter the default value here.</Default>
        </Literal>
      </Declarations>
      <Code Language="VB">
        <![CDATA[
    ''' <summary>
    ''' The $name$ property.
    ''' </summary>
    ''' <remarks>This property is implemented with a private variable and property procedures.</remarks>
    Private m_$name$ As $data_type$ = "$default$"
    <Category("$category$")> _
    <Description("$descr$")> _
    <DefaultValue("$default$")> _
    <Browsable(True)> _
    Public Property $name$() As $data_type$
        Get
            MessageBox.Show("In $name$.Get")
            Return m_$name$
        End Get
        Set(ByVal value As $data_type$)
            MessageBox.Show("In $name$.Set")
            m_$name$ = value
        End Set
    End Property
    ]]>
      </Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>
