VB版 Getter / Setter

VBでのGetter / Setterは次のように書くようだ．

Public Class User

    Private pName As String             '氏名

    Private pYear As Long               '生年

    Private pID As Long                 'ID
    '名前のGetterおよびSetter

    Public Property Name() As String

        Get

            Return pName

        End Get

        Set(ByVal Value As String)

            pName= Value

        End Set

    End Property
    '生年のGetterのみ

    Public ReadOnly Property Year() As Long

        Get

            Return pYear

        End Get

    End Property
    'IDのSetterのみ

    Public WriteOnly Property ID() As Long

        Set(ByVal Value As Long)

            pID = Value

        End Set

    End Property

End Class