#tag Module
Protected Module {{{modelPackage}}}
{{#models}}{{#model}}{{#isEnum}}{{^isInteger}}	#tag Method, Flags = &h21
		Protected Function {{classname}}ToString(value As {{classname}}) As String
		  Select Case value{{#allowableValues}}{{#enumVars}}
		    Case {{classname}}.{{{name}}}
		      Return {{{value}}}{{/enumVars}}{{/allowableValues}}
		    {{#enumUnknownDefaultCase}}Case {{classname}}.{{{enumUnknownDefaultCaseName}}}
		      Return "{{{enumUnknownDefaultCaseName}}}"{{/enumUnknownDefaultCase}}
		  End Select
		  Return ""
		End Function
	#tag EndMethod

{{/isInteger}}{{/isEnum}}{{/model}}{{/models}}
{{#models}}{{#model}}{{#isEnum}}	#tag Enum, Name = {{classname}}, Type = Integer, Flags = &h1
		{{#allowableValues}}{{#enumVars}}
		{{{name}}}{{#isInteger}} = {{{value}}}{{/isInteger}}{{/enumVars}}{{/allowableValues}}
		{{#enumUnknownDefaultCase}}Unknown{{#isInteger}} = {{{value}}}{{/isInteger}}{{/enumUnknownDefaultCase}}
	#tag EndEnum
{{/isEnum}}{{/model}}{{/models}}

	#tag ViewBehavior
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InitialValue=""
			Type="String"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			Type="Integer"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InitialValue=""
			Type="String"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			Type="Integer"
			EditorType=""
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			Type="Integer"
			EditorType=""
		#tag EndViewProperty
	#tag EndViewBehavior
End Module
#tag EndModule
