Vedi se ti va bene così...:
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