对象属性是否在不应该更改的时候被更改？(Vb.net)

Public Class Person
    Private _name As String

    Public ReadOnly Property Name As String
        Get
            Return _name
        End Get
    End Property

    Public Sub New(name As String)
        _name = name
    End Sub

    ' 设置方法为私有，无法在类的外部直接修改属性的值
    Private Sub SetName(name As String)
        _name = name
    End Sub
End Class

Public Class Person
    Private _name As String

    Public Property Name As String
        Get
            Return _name
        End Get
        Set(value As String)
            ' 如果属性在不应该更改的时候被调用，则抛出异常
            Throw New InvalidOperationException("Name property cannot be changed.")
        End Set
    End Property

    Public Sub New(name As String)
        _name = name
    End Sub
End Class