Visual Basic

Class Class1

Private _counter As Integer    ' this is a field - not visible outside
                               ' the class
Private _timeStamp As Date     ' so is this except it will only be 
                               ' visible to callers via Get and Set

Public Property Get TimeStamp() As Date
    ' Return the value of the backing variable
    TimeStamp = _timeProperty
End Property

Public Property Set TimeStamp(ByVal newTimeStamp As Date)
    ' Set the backing variable to the value in newTimeStamp
    _timeStamp = newTimeStamp
End Property

Public Sub DoSomeProcess()
    ' Note that _counter may be used but not directly
    ' manipulated by any caller of Class1's Subs and Functions.
    _counter += 1
End Function


End Class