' Visual Basic 2008 9.0 .NET Examples - Properties - Object Oriented Programming : 
Namespace Example3
    Module Client
        Sub Main()
            Dim counter1 As Counter = New Counter
            Console.WriteLine(counter1.Value)
            '
            counter1.Raise()
            Console.WriteLine(counter1.Value)
            '
            counter1.Raise()
            Console.WriteLine(counter1.Value)
            '
            'counter1.Value = 5            ' impossible, no available setter (3)
            '
            Console.ReadLine()
        End Sub
    End Module
End Namespace
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.