Richiamare un'intera Collection nel campo di un'altra Collection

E' possibile in una Collection contenere e richiamare un'intera altra Collection.

Nell'esempio, che segue, abbiamo due Collection. In un campo della seconda Collection sarà inserito un riferimento alla prima Collection:

Private collezione_1 As New Collection
Private collezione_2 As New Collection


Public Sub Form_Open()

 Dim campo1 As Byte
 Dim campo2 As Integer


  campo1 = 144
  campo2 = 10000

  With collezione_1
    .add(campo1, "chiave1")
    .add(campo2, "chiave2")
  End With


  With collezione_2
    .add("testo qualsiasi", "chiave_testo")
' Aggiungiamo l'intera Collection 'collezione_1':
    .add(collezione_1, "chiave_campo_collezione_1")
  End With

End


Public Sub Button1_Click()   ' Effettuiamo le verifiche nella console

  Print collezione_2["chiave_testo"]
 
  Print collezione_2["chiave_campo_collezione_1"]["chiave1"]   ' Scrive il contenuto del 1° campo della Collection 'collezione_1'
  Print collezione_2["chiave_campo_collezione_1"]["chiave2"]   ' Scrive il contenuto del 2° campo della Collection 'collezione_1'

End