[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

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