Imports System
Public Class AClass
Private _myValue As Integer = 1000
' Public property with a private setter
Public Property MyValue As Integer
Get
Return _myValue
End Get
Private Set(ByVal value As Integer)
_myValue = value
End Set
End Property
End Class
Class Program
Public Shared Sub Main()
Dim obj As AClass = New AClass()
Console.WriteLine(obj.MyValue)
End Sub
End Class
' run:
'
' 1000
'