''' ''' The base for XmlEntity.vb and Entity.vb ''' Public MustInherit Class BaseEntity Public Enum EntityTypes XmlEntity Entity End Enum Private _entityType As EntityTypes ''' ''' Creates a new instance of the BaseEntity class. ''' ''' The type of entity the super of this class is. Public Sub New(ByVal EntityType As EntityTypes) Me._entityType = EntityType End Sub End Class