Imports System

​

Public Module Module1

    Public Sub Main()

        dim num as New Wietze() With {.Test = "Hallo"}

        dim asdf as ByRefClass = New ByRefClass(num)

        Console.WriteLine("First: " + asdf.Number.Test)

        num.Test += "Zach"

        Console.WriteLine("Second: " + asdf.Number.Test)

    End Sub

    Public Class ByRefClass

        Public Sub New(ByVal number as Wietze)

            Me.Number = number

        End Sub

        Public Number as Wietze

    End Class

End Module

​

Public Class Wietze

    Public Property Test as String

End Class