Imports System

Public Module Module1

    Public Sub Main()

        Dim myThing As New Container With {

            .Initial = 5    

        }

        Example1(myThing)

        Console.WriteLine("Value: " & myThing.Initial)

        Example2(myThing)

        Console.WriteLine("Value: " & myThing.Initial)

    End Sub

    Private Sub Example1(ByVal thing As Container)

        thing.Initial += 5

    End Sub

    Private Sub Example2(ByRef thing As Container)

        thing = New Container With {

            .Initial = 37   

        }

    End Sub

    Class Container

        Public Property Initial As Integer

    End Class

End Module