Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim foo As New Foo

        foo.Bar = "Initial"

        Console.WriteLine(foo.Bar)

        DoStuff(foo)

        Console.WriteLine(foo.Bar)

        DoStuff2(foo)

        Console.WriteLine(foo.Bar)

    End Sub

​

    Private Sub DoStuff(ByVal foo As Foo)

        foo.Bar = "DoStuff"

    End Sub

​

    Private Sub DoStuff2(ByRef foo As Foo)

        foo.Bar = "DoStuff2"

    End Sub

​

    Private Class Foo

​

        Public Property Bar As String

    End Class

End Module

​