Module Module1
Class Test
Private _n As Integer
Public Property Value() As Integer
Get
Return _n
End Get
Set(ByVal n As Integer)
_n = n
End Set
End Property
End Class
Sub Main()
Dim o As Test = New Test()
o.Value = 89
Console.WriteLine(o.Value)
End Sub
End Module
' run:
'
' 89