Originariamente inviato da MItaly
codice:
  Private V_ElencoCase(MaxElencoCase) As String

  Public Property Get ElencoCase(ByVal index As Long) As String
    ElencoCase = V_ElencoCase(index)
  End Property

  Public Property Let ElencoCase(ByVal index As Long, ByVal sElencoCase As String)
    V_ElencoCase(index) = sElencoCase 
  End Property
Ma sei sicuro che funziona? L'hai mai provato?
Ora non ho davanti il pc con VB, ma ho provato ieri una cosa simile e dava un errore del tipo "Le definizioni della routine Property per la stessa proprietà non sono coerenti o utilizzo di un parametro facoltativo non valido" Evidenziando il Let. L'ho scritto praticamente uguale a parte il "ByVal". Sicuramente sono io che sto facendo la pirlata, ma non capisco cosa.
Grazie!