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")
' Aggiunge l'intera Collection 'collezione_1':
   .add(collezione_1, "chiave_campo_collezione_1")
 End With

End


Public Sub Button1_Click()   ' Effettua 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