Option Strict On

Option Explicit On

​

Public Class Test

​

   Dim counter As Integer

​

   Property CounterProperty As Integer

       Get

           Return counter

       End Get

       Set (ByVal value As Integer)

           counter = value

       End Set

   End Property

​

   Sub Increment

       counter += 1

   End Sub

​

    Public Shared Sub Main()

        Dim t As New Test()

        System.Console.WriteLine("Counter = {0}", t.counter)

        t.Foo(t.counter)

        System.Console.WriteLine("Counter = {0}", t.counter)

​

        t.CounterProperty = 0

        System.Console.WriteLine("CounterProperty = {0}", t.CounterProperty)

        t.Foo(t.CounterProperty)

        System.Console.WriteLine("CounterProperty = {0}", t.CounterProperty)

   End Sub

​

   Sub Foo(ByRef x As Integer)

       x = 5

       Increment

       Increment

       Increment

       x += 1

   End Sub

​

End Class