Module Module1
Class Test
Dim _age As Integer
Public WriteOnly Property Age
Set(value)
_age = value
End Set
End Property
Public Sub Show()
Console.WriteLine(_age)
End Sub
End Class
Sub Main()
Dim o As Test = New Test()
o.Age = 52
o.Show()
End Sub
End Module
' run:
'
' 52