Nascondere una classe all'esterno

Friend Module Supporto
   Friend Contatore As Int16
End Module

Public Class Elaboratore
   Public ReadOnly Property Leggi_Valore As Int16
      Get
         Return Contatore
      End Get
   End Property
End Class

Public Class Strumenti_Uno
   Inherits Elaboratore

   Public Sub BlaBla
      ...
   End Sub

  ...
End Class

Friend Module Supporto
    Friend Contatore As Int16
End Module

'Modifica: la classe da Public a Friend per limitarne
 'la visibiltà all' esterno
Friend Class Elaboratore
    Public ReadOnly Property Leggi_Valore As Int16
        Get
            Return Contatore
        End Get
    End Property
End Class

Public Class Strumenti_Uno

    'Modifica: invece di ereditare(inherits) si crea
    ' un nuovo oggetto dal quale ricavare le proprietà
    Dim New_Elaboratore As New Elaboratore

    Public Sub BlaBla()
        'due righe per provare....
        Contatore = 1
        Console.WriteLine(New_Elaboratore.Leggi_Valore)
    End Sub

End Class