[VB6] Ambiguous name detected

[symonx80]

Ciao ho creato una classe di un oggetto 'anagrafica' ma il compilatore mi da errore in run dicendomi 'Ambiguous name detected'.
Qualcuno può darmi una mano?

'Classe per gestire un oggetto di tipo Anagrafica

Private cod_anagrafica As String
Private rag_sociale As String
......

'Metodo costruttore
Friend Sub init(cod_an As String, Optional rag_sociale As String, Optional indirizzo As String, Optional cap As String, Optional localita As String)
    Me.cod_anagrafica = cod_an
    If Not IsMissing(rag_sociale) Then
        Me.rag_sociale = rag_sociale
    End If
    ......
    .....
End Sub

Public Property Get cod_anagrafica() As String
    cod_an = Me.cod_anagrafica
End Property

Public Property Let cod_anagrafica(ByVal vNewValue As String)
    If (vNewValue = "") Then
        Err.Raise 5
    Else
        Me.cod_anagrafica = vNewValue
    End If
End Property

......
.......

[sspintux]

Originariamente inviato da symonx80
Ciao ho creato una classe di un oggetto 'anagrafica' ma il compilatore mi da errore in run dicendomi 'Ambiguous name detected'.
[CODE]

prova a cambiare nome ad una delle var 'rag_sociale'

[symonx80]

Ma l'errore me lo segnala sulla variabile

cod_anagrafica As String

[sspintux]

Originariamente inviato da symonx80
Ma l'errore me lo segnala sulla variabile

cod_anagrafica As String

...dirlo prima no eh!!

cambia il nome alla proprietà oppure alla var privata

[symonx80]

Scusa,hai ragione.
il problema è che io sono javista ma per motivi di lavoro devo mettermi e imparare questo linguaggio.
Pensavo che il nome della proprietà dovesse essere uguale a quello della variabile privata, come in Java..