Salve.

Supponiamo di avere 3 classi:
ISTRUZIONE
ASSEMBLATORE
FILTRO

e il seguente codice:

-----------------------ISTRUZIONE---------------------------
Private strCodOp As String


Public Property Let scrivi_codop(stringa As String)

strCodOp = stringa

End Property


Public Property Get leggi_codop() As String

leggi_codop = strCodOp

End Property




-----------------------ASSEMBLATORE----------------------

Dim ixt As New ISTRUZIONE
Dim filtro As New FILTRO


ixt.scrivi_codop = "ADD" 'assegno un valore


filtro.an_codop (ixt) <------!!!!!!! :master:



-----------------------FILTRO---------------------------
Public Sub an_codop(obj As ISTRUZIONE)

Dim codop As String

codop = obj.leggi_codop 'leggo il valore della proprietà di obj

If (codop = "ADD") Then
MsgBox "filtro ok", vbOKOnly
End If

End Sub

---------------------------------------------------------------

Il problema è: una classe ( ASSEMBLATORE ) può passare ad un oggetto ( filtro ) un riferimento
ad un altro oggetto ( ixt ) ?

L'errore che ottengo è:
"Proprietà o metodo non supportati dall'oggetto (errore 438)"

Quello che in pratica voglio ottenere è che "qualcuno" scriva in un oggetto di tipo ISTRUZIONE e "qualcun'altro"
legga lo STESSO oggetto.


Ho provato a non usare la classe FILTRO e a porre la sub an_codop in un modulo: in questo caso non si verifica nessun errore.
Ma se volessi mantenere la classe?

Chiedo anticipatamente scusa se non ho espresso il problema in modo efficace e chiaro.

Grazie.