Public Class Form1
    Public Class TestClass
        Private testPropValue As Integer
        Public Property TestProp() As Integer
            Get
                Return testPropValue
            End Get
            Set(ByVal value As Integer)
                testPropValue = value
            End Set
        End Property
    End Class
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim obj As New TestClass
        obj.TestProp = 5 ' Setzen
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim obj2 As New TestClass
        MsgBox(obj2.TestProp)
    End Sub
End Class