Class EnumBase
Protected
	m_Value As Long
Public
	Sub EnumBase(value As Long)
		m_Value=value
	End Sub
	Sub ~EnumBase()
	End Sub

	'Abstract Function ToString() As String

	Sub Copy(ByRef obj As EnumBase)
		m_Value=obj.m_Value
	End Sub

	Function Operator() As Long
		Return m_Value
	End Function
End Class