Vb.net 嵌套类上的隐藏函数

我怎样才能隐藏、清除和添加到类2上，这样它们只在类1上可见，比如

Public Class Class1

Private names As List(Of String)
Private _class2 As New Class2

Public Sub AddName(ByVal name As String)
    names.Add(name)
    _class2.Add()
End Sub

Public ReadOnly Property AddAge(ByVal name As String) As Class2
    Get
        _class2.index = names.IndexOf(name)
        Return _class2
    End Get
End Property

Public Sub Clear()
    names.Clear()
    _class2.Clear()
End Sub

Public Class Class2

    Private _age As List(Of Integer)
    Protected Friend index As Integer

    Public Property Age() As Integer
        Get
            Return _age(index)
        End Get
        Set(ByVal value As Integer)
            _age(index) = value
        End Set
    End Property

    Public Sub Add()
        _age.Add(0)
    End Sub

    Public Sub Clear()
        _age.Clear()
    End Sub

End Class
End Class

公共子清除（）
name.Clear（）
_class2.Clear（）“已使用-Hans Passant-comment

“对.NET的信任遵循程序集边界。如果一个程序集中有两个类，那么有两个程序员知道如何在出现问题时找到彼此。获得所需内容的唯一方法是将这些类放在单独的类库项目中。这样你就可以使用Friend了。不管是谁写的主要方法都不必友好。“
信任.NET遵循程序集边界。如果一个程序集中有两个类，那么有两个程序员知道如何在出现问题时找到彼此。获得所需内容的唯一方法是将这些类放在单独的类库项目中。这样你就可以使用Friend了。不管是谁写的主要方法都不必友好。
Public Sub Clear()
    names.Clear()
    _class2.Clear() '<<<<<<<
End Sub

Sub Main()
    Dim person As New Class1

    person.AddAge("kid").Clear() '<<<<<<
    person.AddAge("kid").Add() '<<<<<<

End Sub