gistfile1.vb

Module Module1

    Sub Main()
        Dim f = New Foo()
        Dim v = f.Value
        Dim c = f.Count

    End Sub

End Module

Class Foo
    Dim _value As Integer
    Dim _count As Integer

    Public Sub New()
        _value = 10
        _count = 0
    End Sub

    Public ReadOnly Property Value() As Integer
        Get
            _count += 1
            Return _value
        End Get
    End Property

    Public ReadOnly Property Count() As Integer
        Get
            Return _count
        End Get
    End Property
End Class