Class __TemplateClass
  __Header
    VERSION $__VERSION$ CLASS
    BEGIN
        MultiUse = -1 
    END
    Attribute VB_Name = "$__IDENTIFIER$"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = True
    Attribute VB_PredeclaredId = False
    Attribute VB_Exposed = False
  End __Header

  Declarations
    Option Explicit
    '' add your own, additional template declarations here...
  End Declarations

  Private Intrinsic Constructor Sub Class_Initialize
  Private Intrinsic Destructor Sub Class_Terminate
  '' add your own, additional template members here...
End Class



Collection __TemplateCollection
  __Header
    VERSION $__VERSION$ CLASS
    BEGIN
        MultiUse = -1 
    END
    Attribute VB_Name = "$__IDENTIFIER$"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = True
    Attribute VB_PredeclaredId = False
    Attribute VB_Exposed = False
  End __Header

  Declarations
    Option Explicit
    Private mcolItems As Collection
    '' add your own, additional template declarations here...
  End Declarations

  Private Intrinsic Constructor Sub Class_Initialize Begin
    Set mcolItems = New Collection
  End Sub

  Private Intrinsic Destructor Sub Class_Terminate Begin
    Set mcolItems = Nothing
  End Sub

  Public Function Count() As Long Begin
    Count = mcolItems.Count
  End Function

  Public Enumerator Function NewEnum() As IUnknown Begin
    Set NewEnum = mcolItems.[_NewEnum]
  End Function

  Public Default Abstract Property Set Item(ByVal varIndex As Variant) As $__ITEMCLASS$ Begin 
  Get:
     Set Item = mcolItems(varIndex)
  Set:
     Set mcolItems(varIndex) = $__PROPERTYVARIABLELOCAL$
  End Property

  Public Sub Remove(ByVal varIndex As Variant) Begin
    mcolItems.Remove varIndex
  End Sub

  Public Function Add(ByRef AnItem As $__ITEMCLASS$, Optional ByVal strKey As String = "") As $__ITEMCLASS$ Begin
    If strKey <> "" Then
        mcolItems.Add AnItem, strKey
    Else
        mcolItems.Add AnItem
    End If

    Set Add = AnItem
  End Function

  '' add your own, additional template members here...
End Collection



Form __TemplateForm
  __Header
    VERSION $__VERSION$
    BEGIN VB.Form $__IDENTIFIER$
        Caption = "$__IDENTIFIER$"
        $__CONTAINED_CONTROLS$
    END
    Attribute VB_Name = "$__IDENTIFIER$"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
  End __Header

  Declarations
    Option Explicit
    '' add your own, additional template declarations here...
  End Declarations

  Private Intrinsic Constructor Sub Form_Initialize
  Private Intrinsic Destructor Sub Form_Terminate
  Private Intrinsic Sub Form_Load
  Private Intrinsic Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Private Intrinsic Sub Form_Unload(Cancel As Integer)
  Private Intrinsic Sub Form_Activate
  Private Intrinsic Sub Form_Deactivate
  '' add your own, additional template members here...
End Form


Module __TemplateModule
  __Header
    Attribute VB_Name = "$__IDENTIFIER$"
  End __Header
  Declarations
    Option Explicit
    '' add your own, additional template declarations here...
  End Declarations
  '' add your own, additional template members here...
End Module


Form __TemplateMDIForm
  __Header
    VERSION $__VERSION$
    BEGIN VB.MDIForm $__IDENTIFIER$
        Caption = "$__IDENTIFIER$"
        $__CONTAINED_CONTROLS$
    END
    Attribute VB_Name = "$__IDENTIFIER$"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
  End __Header

  Declarations
    Option Explicit
    '' add your own, additional template declarations here...
  End Declarations

  Private Intrinsic Constructor Sub MDIForm_Initialize
  Private Intrinsic Destructor Sub MDIForm_Terminate
  Private Intrinsic Sub MDIForm_Load
  Private Intrinsic Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Private Intrinsic Sub MDIForm_Unload(Cancel As Integer)
  Private Intrinsic Sub MDIForm_Activate
  Private Intrinsic Sub MDIForm_Deactivate
  '' add your own, additional template members here...
End MDIForm




