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

	Function Operator == (Value As Long) As Long
		If m_Value = Value Then
			Return _System_TRUE
		Else
			Return _System_FALSE
		End If
	End Function
End Class