'Visual Basic 2010 Publieke Members Benaderen Object Oriented Programming
Namespace Example1
    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
            End Get
            Set(ByVal value As Decimal)
                m_Tax = value
            End Set
        End Property
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.