特定のクラスのみ別クラスのプロパティへのアクセスを許可したい

Public Interface IPerson
    Readonly Property Name As String
End Interface

Public Class Person
Inherits IPerson
...
    Public Property Name As String
        Get ....
        Set ....
    End Property
End Class

Public Class Person
    Private _Name As String
    
    Public Overloads Sub New() 
    End Sub
    
    Public Overloads Sub New(ImmutablePerson P)
        Me.Name = P.Name
    End Sub
    
    Public Property Name As String
        Get ....
        Set ....
    End Property
    
    Public ReadOnly Property Person As ImmutablePerson
        Get
            Return New ImmutablePerson(Me)
        End Get
    End Property
End Class

Public Class ImmutablePerson
    Private _P As Person
    
    Public Sub New(Byref P As Person)
        _P = P
    End Sub
    
    Public Property Name As String
        Get 
            Return _P.Name
        End Get
    End Property
End Class

Dim P As Person = New Person()
P.Name = "AAA" 'セットできる

Dim IP As ImmutablePerson = P.Person
P.Name = "BBB" 'セットできないため、コンパイルエラー

New Person(ImmutablePersonのインスタンス)

    Public Sub New()
        Dim personal As New Personal()
        Console.WriteLine(personal.Name)
        SetName(personal, "IT太郎")
        mEmployees.Add(personal)
    End Sub

    Private Sub SetName(ByVal personal As Personal, ByVal name As String)
        personal.GetType() _
            .GetField("mName", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance) _
            .SetValue(personal, name)
    End Sub

Interface IPerson

    WriteOnly Property Name() As String

End Interface



Public Class Person

    Implements IPerson



    Private _Name As String



    Public ReadOnly Property Name() As String

        Get

            Return _Name

        End Get

    End Property



    Protected WriteOnly Property Name1() As String Implements IPerson.Name

        Set(ByVal value As String)

            _Name = value

        End Set

    End Property

End Class

'個人情報クラス
Public Class Personal

    Protected mName As String
    Protected mAddress As String
    Protected mAge As Integer

    Public ReadOnly Property Name() As String
        Get
            Return Me.mName
        End Get
    End Property

End Class

'個人情報クラス
Public Class Company

    Private Class PersonalInherits : Inherits Personal
        Public Property _Name() As String
            Get
                Return MyBase.mName
            End Get
            Set(ByVal value As String)
                MyBase.mName = value
            End Set
        End Property
    End Class

    Private mCompanyName As String
    Private mEmployees As New List(Of Personal)

    Public Sub New()
        Dim personal As New PersonalInherits()
        Console.WriteLine(personal.Name)
        personal._Name = "IT太郎" 'OK
        mEmployees.Add(DirectCast(personal, Personal))
    End Sub

End Class

'フォームクラス
Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim personal As New Personal()
        Console.WriteLine(personal.Name)
        'personal.Name = "IT太郎" 'エラー
    End Sub

End Class