Public Class BookSale

   Private m_titleString As String
   Private m_quantityInteger As Integer
   Private m_priceDecimal As Decimal

#Region "Properties"
   Property Title() As String
       Get
           Return m_titleString
       End Get
       Set(ByVal value As String)
           m_titleString = value
       End Set
   End Property

   Property Quantity() As Integer
       Get
           Return m_quantityInteger
       End Get
       Set(ByVal value As Integer)
           m_quantityInteger = value
       End Set
   End Property

   Property Price() As Decimal
       Get
           Price = m_priceDecimal
       End Get
       Set(ByVal value As Decimal)
           m_priceDecimal = value
       End Set
   End Property
#End Region

   Public Function ExtendedPrice() As Decimal
       Return m_quantityInteger * m_priceDecimal
   End Function

End Class