'Visual Basic 2010 Properties Object Oriented Programming
Namespace PrivateSetterExample
    Class Counter
        Private m_Value As Integer
        Public Property Value() As Integer
            Get
                Value = m_Value
            End Get
            Private Set(ByVal value As Integer)                            ' (1)
                m_Value = value
            End Set
        End Property
        Public Sub Raise()
            Value = Value + 1                                              ' (2)
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.