Namespace Framework >> Public Class Upload >> Friend Sub New() >> End Sub >> End Class >> >> Public Class PublicClass >> Public oUpload As New Upload() >> End Class >>End NamespaceIf there are members of Upload that you also do not want to expose outside of the assembly then just mark those Friend as well.....
Public Class Upload Friend Sub New() End Sub Friend Property SomeProperty() As String Get Return m_SomeProperty End Get Set m_SomeProperty = Value End Set End Property Private m_SomeProperty As String Friend Function DoSomething(s As String) As String End Function End Class Public Class PublicClass Private oUpload As New Upload() Public Property SomeProperty() As String Get Return oUpload.SomeProperty End Get Set oUpload.SomeProperty = value End Set End Property Public Function DoSomething(s As String) As String Return oUpload.DoSomething(s) End Function End Class