Class cBook 'Private, class member variable Private m_ID Private m_ISBN Private m_Title Private m_SubTitle Private m_PublishersName Private m_PublishedYear Private m_PageCount Private m_BindingType Private m_arrAuthors() Private bln_AuthorsLoaded 'Read the current ID value Public Property Get ID() ID = m_ID End Property 'store a new ISBN value Public Property Let ID(p_Data) m_ID = p_Data End Property 'Read the current ISBN value Public Property Get ISBN() ISBN = m_ISBN End Property 'store a new ISBN value Public Property Let ISBN(p_Data) m_ISBN = p_Data End Property 'store a new Title value Public Property Let Title(p_Data) m_Title = p_Data End Property 'Read the current Title value Public Property Get Title() Title = m_Title End Property 'Read the current SubTitle value Public Property Get SubTitle() SubTitle = m_SubTitle End Property 'store a new SubTitle value Public Property Let SubTitle(p_Data) m_SubTitle = p_Data End Property 'Read the current PublishersName value Public Property Get PublishersName() PublishersName = m_PublishersName End Property 'store a new PublishersName value Public Property Let PublishersName(p_Data) m_PublishersName=p_Data End Property 'Read the current PublishedYear value Public Property Get PublishedYear() PublishedYear = m_PublishedYear End Property 'store a new PublishedYear value Public Property Let PublishedYear(p_Data) m_PublishedYear=p_Data End Property 'Read the current PageCount value Public Property Get PageCount() PageCount = m_PageCount End Property 'store a new PageCount value Public Property Let PageCount(p_Data) m_PageCount=p_Data End Property 'Read the current BindingType value Public Property Get BindingType() if m_BindingType <> "" then BindingType = m_BindingType else BindingType = "unknown binding type" end if End Property 'store a new BindingType value Public Property Let BindingType(p_Data) m_BindingType=p_Data End Property Public Property Get Authors() 'Load Authors Here bln_AuthorsLoaded = True End Property End Class