Index: trunk/Include/system/enum.sbp
===================================================================
--- trunk/Include/system/enum.sbp	(revision 440)
+++ trunk/Include/system/enum.sbp	(revision 446)
@@ -7,4 +7,9 @@
 		This.value = value
 		This.lpszName = lpszName
+	End Sub
+
+	Sub EnumBase( enumBase As EnumBase )
+		This.value = enumBase.value
+		This.lpszName = enumBase.lpszName
 	End Sub