'Visual Basic 2008/2010 Publieke Members Benaderen Object Oriented Programming
Namespace Example3
    Class Product
        Private m_Price As Decimal
        Public Property Price() As Decimal
            Get
                Price = m_Price
            End Get
            Set(ByVal value As Decimal)
                m_Price = value
            End Set
        End Property
        Private m_Tax As Decimal
        Public Property Tax() As Decimal
            Get
                Tax = (m_Tax / Price) * 100
            End Get
            Set(ByVal value As Decimal)
                m_Tax = Price * (value / 100)
            End Set
        End Property
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.